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INTRODUCTION 



This manual describes the functional characteristics of the programs compris- 
ing the MONARCH Monitor. This description is intended to supplement the 
MONARCH Reference Manual (SDS Publication No. 900566) and provides in- 
formation needed for the maintenance and modification of the MONARCH 
Operating System. 

All of these programs have been assembled using META-SYMBOL. The recom- 
mended means of making changes to one of these programs is by furnishing sym- 
bolic corrections relative to the current META-SYMBOL listing of that program 
and then reassembling with the symbolic corrections and the current encoded 
program as input. A new encoded deck should be requested each time a pro- 
gram is reassembled in order to facilitate future changes. 

See the description of the MONARCH Update Routine for information relating 
to creating and updating MONARCH system tapes. 



IV 



SCIENTIFIC DATA SYSTEMS 



SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog Nos. 



042012 (900 Serie 
642028 (93nm 



IDENTIFICATION: MONARCH FOR 900 SERIES/9300 COMPUTERS 

COMPUTER 

CONFIGURATION: Any SDS 900 Series/9300 Computer system with at least 8K words of core 

storage, console typewriter, and one or more magnetic tapes. For details, 

see MONARCH REFERENCE MANUAL. 



PURPOSE: 



PROGRAMMING 
CONVENTIONS: 



To perform automatic execution of a sequence of independent or related pro- 
grams without requiring operator intervention. 



MONARCH may be assembled using either SYMBOL or META-SYMBOL. It 
also uses no internal PROGRAMMED OPERATORS and it is relocatable. 



MCMUKY 

REQUIREMENTS: 

SUBROUTINES 
USED: 



At least 8K words of core storage. 



MONARCH consists of the following routines: 



Routine 

1. MONARCH Control Routine 

2. MONARCH Message Analysis 
Tables 

3. MONARCH Control Message 
Input Subroutine 

4. MONARCH I/O Subroutine 
Loader 

5. Card Read Subroutine 

6. Paper Tape/Typewriter I/O 
Subroutine 

7. Magnetic Tape I/O Subroutine 

8. Line Printer Subroutine 

9. MONARCH Supplementary 
Action Routines 





Catalog 


No. 


Mnemonic 


900 Series 


9300 


CONTROL 


042004 


642027 


TABLES 


042005 


642019 


QMSGRD 


042006 


642020 


LDIOSR 


042007 


642021 


CARD 


042031 


642030 


MTYIO 


042032 


642031 


MAGTP 


042033 


642032 


MPRNT 


042034 


642033 


LDI2 


042030 


642034 



SUBROUTINES 
USED: 




Routine 


Mnemonic 


Catalog 
900 Series 


No. 
9300 


(cont. ) 


10. 


Transfer to MONARCH 
Control 


TFMONRCH 


042008 


642023 




11. 


MONARCH Bootstrap Loader 


BOOTSTRAP 


042009 


642024 




12. 


MONARCH Loader 


QSYLDR or 
LOAD 


042010 


642025 




13. 


MONARCH Update 


UPDATE 


042011 


642026 




14. 


FORTRAN Action Routine 


FORTACT 


042014 


642035* 




15. 


FORTRAN Bias 


FORTBIAS 


042015 


- 




16. 


ALGOL Action Routine 


ALGOLA 


042017 


642036 



'There is no 9300 MONARCH requirement for FORTACT; 
thus, 9300 FORTACT is used as a test program to test 
selective I/O handler loading only. 



SCIENTIFIC DATA SYSTEMS 



SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



042004 (900 Serie 
Catalog Nos. 642027 (9300) 



IDENTIFICATION: MONARCH CONTROL ROUTINE (CONTROL) 



PURPOSE: 



ACTION: 



CALLING 
SEQUENCE: 



PROGRAMMING 
CONVENTIONS: 



MEMORY 
REQUIREMENTS: 



Analyze the contents of MONARCH Control messages. 

The following functions are performed (in the order shown) related to the 
processing of MONARCH Control messages: 

a. Read the message from the current control-message medium. 

b. Analyze the syntax of the control message. 

c. Convert any parameters in the control message to the internal representa- 
tion appropriate to the parameter and store the parameter values obtained 
in specified memory location(s). 

d. Transfer control to the Action Subroutine (processor) corresponding to the 
function code in the control message. 

If errors are detected during this process, an appropriate error message is 
typed out, the message containing the error is ignored, and the routine at- 
tempts to read the next control message from typewriter 1 (on the W buffer 
for 900 Series Computers, or on Channel A for the 9300). 



a. 



b. 



After loading or reloading the MONARCH system: 

BRU RDMSG 

To read the next control message when the MONARCH Monitor is still 
in memory (e.g., as would be the case after a control -message error is 
reported): 

BRU RDMSGR 

with a valid unit, channel, and I/O subroutine address in the Unit 
Assignment Table for control messages (QMSG). 



Relocatable routine. No PROGRAMMED OPERATORS used. Contents of 
registers are not preserved. 

Approximately 2420 ft or 1 2 96 1 q memory locations. 



SUBROUTINES 
USED: 

COMMENTS: 



QMSGRD, MTYIO, TYPM 

The MONARCH Message Analysis Tables (TABLES - $CODES, $PARAMS, 
and $CHAR) are referred to by this routine. 

$CODES is the table of MONARCH symbolic functions. 
$PARAMS is the table of MONARCH symbolic parameters. 
$CHAR is the table of MONARCH BCD character classifications. 

Listing for the Type Message Subroutine (TYPM, TYPOUT) and the Standard 
Action Subroutine for System Routines (GSYSP) are included in the MON- 
ARCH Control Routine listings. 



IDENTIFICATION: TYPE MESSAGE SUBROUTINES (TYPM, TYPOUT) 



PURPOSE: 



ACTION: 



CALLING 
SEQUENCE: 



PROGRAMMING 
CONVENTIONS: 



To type (BREAKPOINT 1 or SENSE 1 reset) or print (BREAKPOINT 1 or 
SENSE 1 set) control messages and MONARCH error messages, etc., on 
typewriter 1 or line printer 1, respectively (on the W buffer for 900 Series 
Computers or on Channel A for 9300 Computers). The unit and channel 
designations are fixed in the File Description Table (TMFDT) for typewriter 
output and in the File Description Table (PRTFDT) for line printer output. 

Characters are typed, beginning with the leftmost character in the memory 
location specified by the Index Register (bits 10 through 23 for 900 Series 
Computers, or bits 9 through 23 for 9300 Computers) until: 

a. A period (SDS code 33g) is typed or printed or 

b. 72 characters have been typed or printed. 

The message text is assumed to be packed 4 characters per word. A carriage 
return (SDS code 52g) is typed prior to typing the text and after the last 
character of text is typed. If the message is output on the line printer, the 
printer is upspaced one line prior to printing the message. 



BRM TYPM 



or 



BRM TYPOUT 



with the origin of the message text in bits 10 through 23 of the Index Register 
for 900 Series Computers, or in bits 9 through 23 for 9300 Computers. 



Relocatable subroutine assembled with MONARCH Control Routine. Does 
not use PROGRAMMED OPERATORS. The contents of the Index Register are 
preserved but the contents of the A and B Registers are modified. 



MEMORY 
REQUIREMENTS: 

SUBROUTINES 
USED: 

COMMENTS: 



IDENTIFICATION: 
PURPOSE: 

ACTION: 



Approximately 60 R or 48 ~ memory locations. 



MTYIO 

This routine is used by the MONARCH Control Routine to type out or print 
control messages obtained from media other than typewriter 1 (on the W 
buffer for 900 Series Computers, or on Channel A for 9300 Computers). It is 
used by the MONARCH Control Routine and MONARCH Action Subroutines 
(processors) to type or print error messages and to communicate other informa- 
tion to the console operator. ^"~-\ 

STANDARD ACTION SUBROUTINE FOR SYSTEM ROUTINES (&SYSP) 

To provide a standard subroutine for controlling the loading of standard system 
routines (e.g., assemblers and compilers) from a MONARCH system tape. 

The following actions are performed in the order indicated: 

1. The MONARCH Loader's symbol table is "purged" so that the only entries 
in the symbol table are all the external labels defined within the Loader 
itself, which includes the following: 

a. Aii external definitions for MONARCH Unit Assignment Table (UAT) 
entries and, for 900 Series Computers only, the external definitions 
for the Business Assignment Table (BAT). 

b. An external definition for the Processor Error Switch (QPESW). 



c. 



d. 



e. 



An external definition for the entry point to the Monitor Bootstrap 
Routine (QBOOT). 

An external definition for the entry point to the MONARCH Loader 
(QSYLDR). 

An external definition for the entry point to the octal dump routine 
(QDUMP). 

2. Selective loading of standard input/output subroutines. The contents of 
IORELC (bits through 8) are examined to see if any standard I/O sub- 
routines are to be loaded to handle input/output functions for the system 
routine. If this is the case, LDIOSR is called to load the indicated I/O 
subroutines. Bits 9 through 23 of IORELC provide the load relocation 
bias for the first I/O subroutine to be loaded. 

3. Locating the standard system routine. The system tape "search" sub- 
routine (QSRCH) is called with instructions to position the system tape 
in the record acm followina the level 1 MONARCH ID record for that 



ACTION; 

(cont. ) 



CALLING 
SEQUENCE: 



system routine or to position the RAD system file at the first word of that 
system routine. The address of the search key is obtained from the loca- 
tion $OMTE in the MONARCH control routine. 

4. Loading the standard system routine. Control is transferred to the 
MONARCH Loader with the load relocation bias (bits 9 through 23 of 
IORELC) in the A Register and Loader Option Flags in the B Register. 
The Loader Option flags are obtained from location SRLDF in the MON- 
ARCH Control Routine. SRLDF is initially set to specify loading with no 
planned halts and no symbol table listing. 



BRM GSYSP 

with: 

(IORELC) _ 8 

(IORELC) 9 _ 23 
(OMTE) 



(SRLDF) 



or BRU GSYSP 



I/O Function Switches. 

Load relocation bias for first subprogram of the system 
routine. 

Address of 8-character program ID. This same ID is 
assumed to occur in characters 9 through 16 of the level 
1 MONARCH ID record which precedes the system rou- 
tine on the system tape, or in words one and two of its 
RAD directory entry. 

Loader Option Flags for MONARCH Loader. 



PROGRAMMING 
CONVENTIONS: 



MEMORY 
REQUIREMENTS: 

SUBROUTINES 
USED: 



Relocatable subroutine. No PROGRAMMED OPERATORS are used and no 
registers are preserved. Assembled with MONARCH Control Routine. 



Approximately 50g or 40 ]n memory locations. 

LDIOSR 

SRLDSY 

QSRCH 

TYPM 

QSYLDR (MONARCH Loader) 



GLOSSARY OF ABBREVIATIONS AND SYMBOLS (MONARCH CONTROL ROUTINE) 



(a) Contents of a 

a-*-(b) Store contents of b in location a 

(a)-*-(b) Store contents of b indirectly in a 

QMSG UAT entry for control messages 

MTYIO Address of typewriter I/O subroutine 

CADDR Character address of next control message character 

LM Message left delimiter character 

RM Message right delimiter character 

LN Left delimiter of numeric word 

LA Left delimiter of symbolic word 

LL Left delimiter of literal word 

LU Universal left delimiter 

LS Leading plus or minus sign 

IG Character is to be ignored 

IL Illegal character 

RL Right delimiter for literal 

RU Universal right delimiter 

WDTYP Cell which contains word type code, current word 

ONR Word type code for octal number 

DNR Word type code for decimal number 

SYM Word type code for symbol 

LIT Word type code for literal 

TY Typewriter 

MT Magnetic Tape 

PR Photoreader 

PP Paper tape punch 

CR Card reader 

CP Card punch 

LP Line Printer 



MONARCH CONTROL ROUTINE 



<5> 



& 






fENTlYJ 



WDMSG 



Dow QMSG contain 
and subroutine oodi 



valid unit, chon- l Yai 
ddro—*? J 



No 



| QMSG —-unit 1, channol 0, MTYIO | 



JlfiMifit 



Initialize 



C 



I 



from typewriter 1 ? 

"T= — 



No 



Typo a carriage return 

I 



QMSOKD 

Road 1 record from control 
medium 



Initialize input rocord are* addrets 



GETCHR 

Got 1 character from 
input aroa 



Typ* tho control 



(± 



1st char, in rocord an LM 



(o.g.,"A^ 



I 



Yot 



« ** f It mojHfO from typewriter 1 ? J 

In. 



' i ( b menage from typewriter 1? V~/a2^ 

(I P j - ~ 



GgTWRP 

Obtain and classify next 
word of current mmogo 



c 



I 



0. 



r^>PMSG 
Type •rroc flMttOQC 



MSGRST 



QMSG'— unit 1, channel 0, MTYIO | 



b 1st 



word a symbol? 



I 



>*© 



Yei 



^ b Ut menage word a lego I function code mnemonic 'ry - 



OMTE —address of Ut word of function code entry 
PRMMAX* maximum number of parameters 
PRMMIN-*- minimum number of parameter* 
ORGPRM*- origin of table of parameter value* 

IPF«— origin of MONARCH "Processor" subr. outline 
IORAWD— I/O subr. (election* and load relocation bkn 



PRMCTR — 
PRMORG— (ORGfRM) 



X 



© 




MONARCH CONTROL ROUTINE (cont.) 



C 



I 



(PtMMAX) i (PRMCTR) 




c 



End of monago oneountered? 



y*© 





NOTE | 




Exit to "ProeoMor" 
Subroutine (MU*IPF ) 



No 



GETVrTtP 

Obtain and claMify next word 
of eurront 



X-^- typo codo for currant word 




(S) 



No/* 

©F 



Single-preeision literal? 



Yos 



(PRMORG)— l»t4ehar». 
of lltaral 



PRMORG— (PRMORG)+! 
WrACTR-*-(PRMCTR)+l 



Extract 2nd 4 chart, of 
literal 








(PftMMIN) 2 (PKMCTR) J 




©■ 



© 



(PRAAORG)<— valvaof 
ilngle-precition 



PIMOUG— (PRMORG)-t-l 
PtMCTt— (PtMCT*)+1 



© 



/b tyiraol in MONARCH \ iuf 
^wb olic Patom. Table ?y *^^ 

T^ 



Computer? 



Extract yak 

«^_ ■ «^« 
rroei.Te»*e 



tract value of parameter 



© 



> 



9300 



I 



900 Sariat 

< 



IC pMMaWOT Of fOfM 

TYU^TYUtCMTU^MTU,^, 

**°l mi, pwjc, rm, ppuc, ciu, 

CtUC, CPU, CPUC, LPU, LPUC? 

C-A,I»C,D,E,F I G > orH 





Vai 



Form oMociatad 24-yt EOAA/tOO 
Instruction for designated unit and 
channel 



© 



MONARCH CONTROL ROUTINE (cont.) 



<sy 



( ENTm 



SGETWKD 



knlMallao 



_fiSTJ£T 



GETCHR 

Get iMKt char. (C) from 
current mottoQO 



X ■ left delimiter classification cod* 

forC 
K ■ ch e ro c to r c (ossification cod* for C 



I 



© 



IADMS O TLEND 



iADMSG 
Typo orror 



© 




© 



Wo* C preceded by a ^Yw 
fof 1 -'? J ^ 



Sot sign Indicator to 
"plus" 



I 



WDTYF— ONR classify 
word at octal 



-( bC = O? ) 

r 



WDTYT— DNR classify 
word at doclmal 



GET1NT 

Got internal chert, 
of 



I 



Pf TJNT 

G«t Internal ehsn, 
of nufffb#f 




DEOIN 

Convert number to 
binary 



© 9 

(Was word preceded by\lB_ fWoi » 



word preceded y^m 
or"-"? 



WDTYP— SYMclas- 
sify word at a symbol 



I 



I 



WDTYP-— LIT clot 
lify word at literal 




GETINT 

Get internal chare, 
of word 



I 



GETINT 

Get internal 
chart, of 
word 




MONARCH CONTROL ROUTINE (conr.) 



ENTRY I GETINT 



© 




GETCHR 



Got noxt char. (C) from currant 

1 



X * Internal character clarification 
coda for C 






CRU 



CZODA 



y« (WDTYP) 




(WDTYP) - UT? 



© 



TQNR 



C 



b C an octal digit? 



© 





© 



Stora C In work araa for word 







Max. nombor of chart, for this \Yj 
typa of word axcaadad ? 



© 







(WDTYP) -UT? j W> I C" 

© © " 



K=RMJ 



(WDTYP) = UT? 
Tno— 



Sat and of menage 
indicator 




TDNR 



It C a decimal digit? 



© 



J 



It char, count > 0? 



} 



No 



C 



(WDTYP) = ONR 



Sat C * and char, 
count to 1 




RDI 



Fill unutad char, poti- 
tlom In word araa with 
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MONARCH CONTROL ROUTINE (cont.) 



(ENTRY) 



GETCHR 



Extract word addrott & char, petition 
from (CAD Ml) 



I 



Extract noxt rag. char. (C) &loava 
right-juitlflod In A Ragistor 



C 



CADDR— (CADDR)+1 



0*37, 



I 



No 



Storo C in Index Register 




> 



©— " 




ENTRY! DECBIN 




Convort from 1- to 8-dlglt decimal 
integer to binary, tingle prociiion 




OCTtIN 



Convort from 1- to 8-dlglt octal 
numbor to binary, single precision 





Obtain char*, from word aroa (stored 
1 char ./word) & store thorn 4 char./ 
word in tompo r ary storage (ACCUM1, 
ACCUM2) 





IADPRM 



lypt •nw AMttOQo: 



"CONTROL MESSAGE 
ERROR, UNDEFINED 
SYMBOLIC PARAMETER. 1 





BADFNC 



Typo error message: 



"CONTROL MESSAGE 
ERROR." 





BADMSG 



Type orror menage: 

"ILLEGAL CONTROL 
MESSAGE, MESSAGE 
IGNORED." 





NSFPRM 



%yp% •ffor vvmmmqb); 

"CONTROL MESSAGE 
ERROR, INSUFFICIENT 
PARAMETERS." 
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MONARCH CONTROL ROUTINE (cont.) 



C 



PBiocorablt 




LDI2X 
at L0I2 



ENTRY] $ITLO 




magnetic 



Bootstrap for paper tap* or 
magnetic top*? 



1 paper tape 




Absolute or 
relocatable? 



J> 



absolute 



Set up EOM at flla deserlp- 
Hon tabic for popor tope 



MTYIO 
Punch absolute bootstrap 
to popar tap* specified 





TYPM.TYPOUT 



Save m*»*ace origin 




Store meuage origin in FiU 
Description TobU (TMFDT+1) 




VCS 



Count number of woidt in 
up to period 



Store word count in 
flla description table 
(rUTFDT) 
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SCIENTIFIC DATA SYSTEMS 



IDENTIFICATION: 
PURPOSE: 



SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



r , , ~ 042005 (900 Series) 
Catalog Nos. 6420 19 (93001 



MONARCH MESSAGE ANALYSIS TABLES (TABLES- $CODES, 
$PARAMS, $CHAR) 

To provide the following tables for use by the MONARCH Control 
Routine. 



a. 



b. 



c. 



Table of MONARCH Control message function codes ($CODES). 
Each entry in this table contains (1) the function code mnemonic 
for the control message, (2) the address of the processor (Action 
Subroutine) for that control message, (3) the minimum and maxi- 
mum number of parameters which can be supplied in the control 
message, (4) the address of the memory area in which parameter 
values are to be stored, if applicable. 

For control message functions which require loading a system rou- 
tine from the system tape, the initial load relocation bias and 
parameters designating input/output functions are also contained 
in this table. 

Table of symbolic parameters ($PARAMS). Each entry in the table 
containsa l-to4-character symbol anda24-bit binary value for 
that symbol. 

Character classification table ($CHAR). Each entry in this table 
corresponds to one of the 64 possible internal character codes. 
The position of the table entry for a given character, with re- 
spect to the origin of the table, is determined by the internal 
character code for that character. Each table entry consists of 
one word containing: 



1 



A left delimiter classification code for the character. This 
code determines the role that the character plays when it OC' 
curs as the leftmost character in a control message word. Oc' 
cupies bit positions 12 through 17. 

An "internal" classification code for the character. This 
code determines the role that the character plays when it oc 
curs to the right of the leftmost character in a control mes- 
sage word. Occupies bit positions 18 through 23. 



ACTION: 



None. 



14 



CALLING Not applicable. 

SEQUENCE: 

PROGRAMMING 

CONVENTIONS: Relocatable subroutine with no transfer address in End Record. No PRO- 
GRAMMED OPERATORS are used. 

MEMORY 

REQUIREMENTS: Variable, according to number of function code and symbolic parameter en- 

tries. The current size is approximately 735g or 477jq locations. 

SUBROUTINES 

USED: None. 
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MONARCH OPERATING SYSTEM 
MONARCH MESSAGE ANALYSIS TABLES 



FUNCTION CODE TABLE 



The table is composed of entries of the following form: 
1st 4 characters of Function Code Mnemonic 







P(D 



1 Char 


1 Char 


1 Char 


1 Char 


(6) 


(6) 


(6) 


(6) 





2nd 4 characters of Function Code Mnemonic 



P(7) 



P(6) 



P(5) 
(PRMMAX) 



Max no. of 
Parameters 



H 



P(4) 
(PRMMIN) 



Min no. of 
Pa rams. 



M. 



P(3) 
(ORGPRM) 



Origin of Parameter Table 



U5I 



56 



89 



23 



1 Char 


1 Char 


1 Char 


1 Char 


(6) 


(6) 


(6) 


(6) 









23 



S 


SI 


XI 


BO 


LO 


BI 


X3 


SO 


X2 


Relocation Bias for 1st I/O Subr (if any) 
(IOLERC) 


(1) 


(1) 


(1) 


(1) 


(1) 


(1) 


(1) 


(1) 


(1) 


(15) 





1 


2 


3 


4 


5 


6 


7 


8 


9 23 



23 





• i 




P(2) 


Not Used 


Entry Point, First Processor Function* (IPF) 


000000000 


(15) 





8 


9 


23 



P(i) for 1=1(1)7 refers to reference parameter P(i) of the META -SYMBOL Procedure "FC" in the 
MONARCH Tables Routine. 

P(7) and the UAT unit and channel designation and (optionally) a parameter in the control mes- 
sage calling the processor function, collectively determine which, if any, of the standard I/O 
subroutines will be loaded automatically by MONARCH. Each bit of P(7) corresponds to a UAT 
entry, as indicated. A 1 in a given bit position indicates a potential I/O function which may 
require that MONARCH provide a standard I/O subroutine. 



i. e., address of Action Subroutine for this control message. 
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SCIENTIFIC DATA SYSTEMS 



IDENTIFICATION: 



PURPOSE: 



ACTION: 



CALLING 
SEQUENCE: 

PROGRAMMING 
CONVENTIONS: 



MEMORY 
REQUIREMENTS: 

SUBROUTINES 
USED: 



SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



n . , „ 042006 (900 Serie 
Catalog Nos. 64 2Q20 (9300) 



MONARCH CONTROL MESSAGE INPUT SUBROUTINE (QMSGRD) 

To obtain a record from the control message input medium (cards, mag- 
netic tape, paper tape or typewriter). The medium is specified by the 
MONARCH Unit Assignment Table entry for control messages (QMSG). 

If the record length exceeds 72 characters (18 words), only the first 72 
characters are stored in the control message input area ($MSG). If the 
record length is less than 73 characters, the entire record is stored in 
the control message input area. The control message input area is lo- 
cated in the MONARCH Control Routine. 

a. If the medium is paper tape or typewriter, the record is read di- 
rectly into the control message area by executing the subroutine 
whose program ID is MTYIO. 

b. If the medium is cards or magnetic tape, the record is read into a 
40-word input area (CW) in QMSGRD. Cards are read using the 
subroutine whose program ID is CARD. The record is read in the 
binary mode. The binary card image thus obtained is converted 
from Hollerith code (12-bit code) to SDS internal code (6-bit code) 
and the first 72 characters of this converted record are moved to 
the control message input area (MSG). Note that the maximum 
magnetic tape record length that can be accommodated is 160 
characters (40 words). 



BRM QMSGRD 

Relocatable subroutine with no transfer address in End Record. No regi' 
sters are preserved. No PROGRAMMED OPERATORS are used. Com- 
munication with input/output subroutines is via the MONARCH Unit 
Assignment Table. 



Approximately 310g or 200^q locations. 
MTYIO, CARD, MAGTP, HOLBCD 
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MONARCH CONTROL MESSAGE INPUT SUBROUTINE 



entry] sqmsgrd 



c 




It control 



medium cords? 



> 



Yot 



Rotot unit and channel codas In 
CDFDT (filo tabla) 



QMSG 
Rood 1 racard from card* 



QMSG 

Road 1 record from popar ropo, 
typewriter, or magnetic tap* 




LEGEND | 

PT * popar tape 
TY * typewriter 
CD =• cards 
MT = magnatlc taps 



HOLBCD 

Convart Hollerith cedad racord 
to SDS intamal eoda 



Mova converted racord to control 
input araa (MSG) 





HOLBCD 



Convart Hollarlrh cedad card 
imago to BCD by tabic look-up 




QMSG 



(§) 



Mm 



MTYIO 

Rood 1 racord from popar 
tapa or typewriter 




medium 




® 



MAGTP 



MAGTP 



Read 1 racord in binary mode 
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SCIENTIFIC DATA SYSTEMS 



SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog Nos. 



042007 (900 Serie 
642021 (9300) 



IDENTIFICATION: MONARCH I/O SUBROUTINE LOADER (LDIOSR) 



PURPOSE: 



ACTION: 



CALLING 
SEQUENCE: 



PROGRAMMING 
CONVENTIONS: 



To load selected, standard, I/O subroutines from the MONARCH system tape 
in order to satisfy the I/O subroutine requirements of a MONARCH system 
routine. There are four standard I/O subroutines which can be loaded under 
control of LDIOSR. They are: 

PRINT Line Printer Output Subroutine 

MTAPE Magnetic Tape I/O Subroutine 

CDRP Card Read/Punch Subroutine 

PTYIO Paper Tape/Typewriter I/O Subroutine 

LDIOSR will determine which, if any, of these routines to load by first exam- 
ining the I/O function switches corresponding to MONARCH system routine 
whose I/O subroutine requirements are to be satisfied. For each I/O function 
switch which is "set", LDIOSR will examine the MONARCH Unit Assignment 
Table entry which corresponds to that switch. If the unit address code in that 
Unit Assignment Table entry is a code for an input/output device with which 
one of the four I/O subroutines can communicate, then LDIOSR causes that 
I/O subroutine to be loaded. Note that even though the same unit code ap- 
pears in more than one of the "selected" Unit Assignment Table entries, the 
corresponding I/O subroutine will be loaded only once. If the unit address 
code in the Unit Assignment Table entry is a RAD code, the address of the 
RAD File Management Routine (QFMR) is inserted at that UAT entry. 

BRM LDIOSR 

with: 

(IORELC)q_o = I/O function switches 

(IORELC)n_23 = initial load relocation bias (for first I/O subroutine) 

and any Unit Assignment Table entries selected by the I/O function switches 
which are set. 

Relocatable subroutine. No PROGRAMMED OPERATORS are used and no 
registers are preserved. Assembled with several Action Subroutines. 



REQUIREMENTS: Approximately 260g or 1 78 ^ q memory locations. 



SUBROUTINES 
USED: 



SRLDSY 
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MONARCH I/O SUBROUTINE LOADER 22 



LEGEND 



UAT - Unit Alignment Tobla 
UAC = Unit Addreat Code 



© 




ItflQSR 



Initialize subroutine parameters, ex- 
tract I/O function twitch** & initial 
load relocation bio* from IORELC 



I 



TSTPEQ 



f b currant I/O function twitch on 



?K© 



Extract unit address cod* (UAC) from 
UAT entry corresponding to currant 
I/O function 



1 TrW / Z. 

f UAC = cod* for a printer? J ' * [ Printer I/O subroutine loaded yt? J*^" 



c 



No 



I 



No 



Iroert printer tubrautin* origin 
Into UAT entry corraepondlng to 
currant I/O function 



Store current lead relocation blot at 
printar tubroutln* origin 



TMTAPE 



s 



i~fa 



UAC ■ cod* for mag. tap*? 



>N$ 



Insert origin of mag. tap* tubrou- 
Mag. tape I/O tubroutine loaded yrth LS ^ m *'"• info U*T antry corratpondlng 



>»- 



No 



No 



to current I/O function 



Store currant load relocation blot at 
mag. tap* tubroutln* origin 



*© 



TCDRP 



C lnt*rt origin of card I/O tubrou- 

UAC ■= cod* for cord read/punch? ^ Ytt ( Card 1/0 tubro|tlno loaded yet? %■**■»• rtn * ,nto UA / •"** corratpondlng 
■* V f - -* to current I/O function 



G 



llNo 



= cods for 



or 
typewriter 



C 



>1 



: or* current load relocation blot at 
card I/O tubroutln* origin 



© 



*© 



UAC = cod* for a RAO? 



0* 



FJgl 



-tope/typewriter I/O tubroutln* 

IOB-V. y joododyot? 



^Yjt 



Yet 



Insert origin of RAD file 

routln* into UAT entry corratpondlng 

to current I/O function 



DOWN 



r^i^tm Set I/O function pointer to next I/O ^ 
>-^ function twitch 



I 



, No 



Intert origin of poper-tope/type- 
wrlter I/O tubroutine Into UAT 
tntry c o rraepondlng to current 
I/O function 



Store current load relocation blot at 
origin of paper-tape/typewriter I/O 
tubroutine 



© 



© 



Set UAT addroM pointer to UAT entry 
cor r e tp onding to next I/O function 



©*£ 



V. 



Last I/O function twitch examined? 



Jp»/^ 
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MONARCH I/O SUBROUTINE LOADER (cont.) 



© 



jfiM 



Insert currant load relocation bias into UAT 
ontry corresponding to currant I/O function 



LEGEND 



X * indax Register 

B ■ B Register 
IORELC - oddrau of lood relocation 
bias uMd by SRLDSY 



(X)— Option Flag*, MONARCH Loader 
(IOtELC)-»- currant lead relocation bias 
(B) —address of 8-chor. MONARCH ID for I/O 
subroutine to bo loaded 



SRLDSY 

Search for & load specified 
I/O subroutine 



Set current load relocation bias sum of 
(IORELC) & length of I/O subroutine 
just loaded 



© 
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SCIENTIFIC DATA SYSTEMS 



SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



042031 (900 Series) 
Catalog Nos. 642030 (9300) 



IDENTIFICATION: CARD READ SUBROUTINE (CARD) 



PURPOSE: 



ACTION: 

CALLING 
SEQUENCE: 



To obtain a binary card image from a card reader (on the specified buffer for 
900 Series Computers, or on the specified channel on 9300 Computers). The 
unit and channel assignments are taken from the MONARCH Unit Assignment 
Table entry for control messages (QMSG). 

One 80-column card is read from the card reader specified in binary mode. 



BRM 
PZE 



*QMSG 
a 



PROGRAMMING 
CONVENTIONS: 

MEMORY 
REQUIREMENTS: 

SUBROUTINES 
USED: 

COMMENTS: 



Where a is the address of the File Description Table (see description of SDS 
Card Read Subroutine, CDR, 900 Series Catalog No. 030004 or 9300 Cata- 
log No. 633001). 



See description of SDS Card Read Subroutine. 



Approximately 27O3 or 184^q locations. 



N 



one. 



This is the standard SDS Card Read Subroutine with the entry point label 
changed from CDR to CARD to prevent conflict with the use of CDR in other 
contexts within MONARCH. 
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SCIENTIFIC DATA SYSTEMS 



SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



n , . AT 042032 (900 Seri< 
Catalog Nos. 642Q31 mQQ) 



IDENTIFICATION: PAPER-TAPE/TYPEWRITER INPUT/OUTPUT SUBROUTINE (MTYIO) 



PURPOSE: 



ACTION: 



CALLING 
SEQUENCES: 



PROGRAMMING 
CONVENTIONS: 

MEMORY 
REQUIREMENTS: 

SUBROUTINES 
USED: 

COMMENTS: 



To obtain control message records from a paper-tape reader or a typewriter 
and to type control messages and error messages in typewriter 1 (on the W 
buffer for 900 Series Computers, or on Channel A for 9300 Computers). The 
unit and channel assignments for input are obtained from the MONARCH 
Unit Assignment Table entry for control messages (QMSG). 

a. Input. One record is read fromthe unit assigned into the record area 
specified by the File Description Table. 

b. Output. One record is typed on typewriter 1 from the record area speci 
fied by the File Description Table. 



a. Input. BRM *QMSG 

PZE a 

b. Output. BRM MTYIO 

OP a 

Where a is the address of the File Description Table and OP = 040q (see des- 
cription of SDS Paper Tape/Typewriter Subroutine, PTYIO, 900 Series Cata- 
log No. 020019, or 9300 Catalog No. 622001). 



See description of SDS Paper Tape/Typewriter Subroutine. 



Approximately 530g or 344jq locations. 



None. 

This is the standard SDS Paper Tape/Typewriter Subroutine with the entry 
point label changed from PTYIO to MTYIO to prevent conflict with the use 
of PTYIO in other contexts within MONARCH. 
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SCIENTIFIC DATA SYSTEMS 



SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



042033 (900 Series) 
Catalog Nos. 642032 (9300) 



IDENTIFICATION: MAGNETIC TAPE INPUT/OUTPUT SUBROUTINE (MAGTP) 



PURPOSE: 



ACTION: 



CALLING 
SEQUENCES: 



To perform magnetic tape input and output functions requested by the MON- 
ARCH Control Routine and Action Subroutines (message processor). Unit and 
channel assignments are obtained from either the MONARCH Unit Assignment 
Table entry for control messages or from the File Description Table. 



a. 

b. 

c. 
d. 



a. 



b. 



c. 



d. 



Input. One record is read from the specified magnetic tape unit in the 
parity mode specified by the File Description Table. 

Output. One record is written on the specified magnetic tape unit in 
the parity mode specified by the File Description Table. 

Rewind. The specified magnetic tape unit is given a rewind command. 

Space. The specified number of records is skipped on the specified mag' 
netic tape unit. 



Input: 


BRM 
PZE 


*QMSG 
a 


e.g., to obtain a control 
message record. 


Output: 


BRM 
OP 


MAGTP 
a 


e.g., see LABEL Action 
Subroutine. (OP= 040 8 ) 


Rewind: 


BRM 
EOM 


MAGTP 
a 


e.g., see REWIND Action 
Subroutine. 


Space: 


LDA 
BRM 
OP 


N 

MAGTP 

a 


e.g., see SKIPREC Action 
Subroutine. (OP = 030g) 



PROGRAMMING 
CONVENTIONS: 

MEMORY 
REQUIREMENTS: 

SUBROUTINES 
USED: 



Where a is the address of the File Description Table, N is the number of 
records to be skipped, and N<0 specifies backspace. (See description of 
SDS Magnetic Tape Input/Output Subroutine, MTAPE, 900 Series Catalog 
No. 040004 or 9300 Series Catalog No. 640001.) 



See description of SDS Magnetic Tape Input/Output Subroutine. 



Approximately 1000g or 51 2^q locations. 



None. 



COMMENTS: This is the standard SDS Magnetic Tape Input/Output Subroutine with the 

entry point label changed from MTAPE to MAGTP to prevent conflict with 
the use of MTAPE in other contexts within MONARCH. 
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SCIENTIFIC DATA SYSTEMS 



SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



042034 (900 Series) 
Catalog Nos. 642033 (9300) 



IDENTIFICATION: LINE PRINTER SUBROUTINE (MPRNT) 



PURPOSE: 



ACTION: 

CALLING 
SEQUENCE: 



To print control messages and error messages on line printer 1 (on the W buf- 
fer for 900 Series Computers, or on Channel A for 9300 Computers). 

One record is printed from the record area specified by File Description Table. 



BRM 
HLT 



MPRNT 
a 



PROGRAMMING 
CONVENTIONS: 

MEMORY 
REQUIREMENTS: 

SUBROUTINES 
USED: 

COMMENTS: 



where a is the address of the File Description Table (see description of SDS 
Line Printer Subroutine, PRINT, 900 Series Catalog No. 060005, or 9300 
Catalog No. 662002). 



See description of SDS Line Printer Subroutine. 



Approximately 320o or 208-jq locations. 



None. 

This is the standard SDS Line Printer Subroutine with the entry point label 
changed from PRINT to MPRNT to prevent conflict with the use of PRINT in 
other contexts within MONARCH. 
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SCIENTIFIC DATA SYSTEMS 



SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog Nos. 



042030 (900 Seri. 
642034 mm 



IDENTIFICATION: 
PURPOSE: 

ACTION: 



CALLING 
SEQUENCE: 



MONARCH CONTROL SUPPLEMENTARY ACTION ROUTINES (LDI2) 

This program serves as an extension of the MONARCH Control Routine (900 
Series Catalog No. 042004, or 9300 Catalog No. 642027) and includes a 
number of required system action routines. 

Control is transferred to the action routine corresponding to the function code 
specified in the control message. LDI2 contains the following action routines: 

a. Processor for META-SYMBOL systems ($META) 

b. Processor for SYMBOL systems ($SYMBAR) 

c. Magnetic tape functions. 



1. Backfile ($BKFILE) 

2. Skipfile ($SKFILE) 

3. Back record ($BKREC) 

4. Skip record ($SKREC) 

5. Rewind ($REWIND) 

6. Write end-of-file ($WEOF) 

7. Label ($LABEL) 

8. Position ($POSN) 

9. Punch relocatable paper tape 
bootstrap loader ($LDI2X) 

10. Write relocatable magnetic tape 
bootstrap loader ($BTLDX) 



For 900 Computers only; these 
routines are assembled with the 
9300 MONARCH I/O Subrou- 
tine Loader (LDIOSR), and ap- 
pear as part of the listings for 
LDIOSR. 



Not applicable. 



PROGRAMMING 

CONVENTIONS: Relocatable and no PROGRAMMED OPERATORS are used. 



MEMORY 
RFQIITRFMFNTS. 



Annrnvlmnfpl v I630o nr 990, ~ Incntinns. 
"n / o -■ '"|0 
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SUBROUTINES GSYSP, MAGTP, RDMSG, TYPOUT, RDMSGR, TYPM, MTYIO, MSGRST, 

USED: QSRCH. 

COMMENTS: For 900 Series Computers only, the program sets MSFNC and MSFNC1 for 

communication with the META- SYMBOL control program. MSFNC (loca- 
tion 0273o) contains bit settings corresponding to symbolic parameters speci- 
fied on the METASYM control card, which specifies the user's input/output 
requirements, and MSFNC1 (location 0274g) contains a 4-character (BCD) 
PROC name. 
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MONARCH CONTROL SUPPLEMENTARY ACTION ROUTINES 



(enMsmeta 

\^S (WO Swio only) 



Store PROC nam* 
otMSFNCI 



i 


CUor A and B. 
Sat poramatar 
Indox-0 



MoroeTO 
toMSFNC 









^v 


Raduea.na*. 


no i 






\ 






Initialize to try 
mkt poramottr 


"7 






\ 



c 



Campara lymbollc para- ^ \ Y** 
motor (L) to MPHMT2 J~ 



f Endoftabla? \m~ 



Last poramatar? 



Tyol 



5#t Morch labtl 
addraaatOMTE 




MaViys correspond! ng 
bit »ttino to MSFNC 



I GYSYP J 



Load METASYMIOL 
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MONARCH CONTROL SUPPLEMENTARY ACTION ROUTINES (conr.) 




Set HIGH 
(top of ffiMMcy) 



Initialize BO, LO, and 
mnemonic tools flags 



c 



Unary output req u es t ed? 



c 



> 



No 



List output requested? ) 

iNo 

1 



Yes 



£ 



Mnemonic tab! a requested? 



No. 



* 



Yes 



No 



Have all parameters ^^ 
boon processed? ) 



c 



Yes 



Wat a mowvionl 
tabic solactad? 



E 



Q 



No 



(Wot at 1— ton* \Nq f 
output requested? J 



Yes 



Merge SI, XI, and BO 
and/or LO bits to 0367 
and itara at IOKELC 




Sat BO flag — i 



Set LO flag 



Sat mnemonic table flag 



Type "ILLEGAL SYMBOL 
PARAMETER LIST" 
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MONARCH CONTROL SUPPLEMENTARY ACTION ROUTINES (cont.) 



C 




Sot BO and/or 
LO biti at QPESW 



forgo LOADER'! 
symbol tabU 



f 

LDIOSR 

Load I/O 
bond I on 



Look for 
SYMBOL 



Ym 



QSYLDR 
Load SYMBOL 



( Succontul March? V 



No 



Look for roquoirad 
mnemonic fable 



Successful search? 



yj 



Typo "SEARCH FOR 

'symbol' or 'mxxx' 
failed: 




Ym 



QSYLDR 

Load mnomonic tabU 
and exit to SYMBOL 
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MONARCH CONTROL SUPPLEMENTARY ACTION ROUTINES (cont.) 




TYPM 

Type "ABNORMAL 
CONDITION, MT, 
0«DF, 'LABEL' 
MSG REFUSED- 




ENTRY I $LAIEL1 



c 




Logical file requested? 



>— < 



Yei 



/TTV^ N*/" Corresponding physical A 
V^j/ " V Wo magnetic top*? J 



Yh 



Convert UAT 
entry to EOM 



Physical unit Y 

magnetic topo? J" 



No 



Yes 



Store unit and 
channol assignments 



SETLF 

Sot fllo doscription 
toblo 



MAGTP 
Writs labot rocord 



© 



-/badfil J 



ENTRY J SRDMSGR 




Road next control message 
for current ouignod 
control input modi urn 
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MONARCH CONTROL SUPPLEMENTARY ACTION ROUTINES (conf.) 



(logical fiblO, IL orX2?y^-/ BADFIL J 



SETLF 
Set file description table 



Q 



I 



Level 1 label requested? 



> 



Yes 



No 



QFMR 

C^aaaaaa '«*•>') 
onBO/BI 




Successful writ*? 









Successful writ*? 



^*q» 



ested label 'SYSEND 



3> 



Yes 



No 



QFMR 
Rewind D 



— sng — 

Road a D entry 



NEXTWD - LASTWD 
QCW Q - NEXTWD 



f Does fhii D entry match A Yes 
V requested label? J ^ 

INo 



h£ 



this D entry 'SYSEND 

© 



3 




Store QCW BO at QFW |a 
QFW X2 , QCW X2 




TYPM 

Type 

'DUPLICATE LABEL' 




f ENTRY J 



SBTLDX 



Set EOM at file 
description table 
from parameter (L) 



MAGTP 

Write relocatable/ 
absolute bootstrap on 
specified magnetic tope 



ENTRY J$LD12X 




Set EOM at file 
description table 
from(L) 


i 


' 


S 
U 
B 

R 


MTYIO 

ftjnch relocatable 
bootstrap on specified 
paper tape 



H 



A 



Exit to 
RDMSGRJ 
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MONARCH CONTROL SUPPLEMENTARY ACTION ROUTINES (conr.) 



ENTRY 1SETLF 



£ 




Lobol l«v«l equals 1 or 2? 



?W 



Yes 



SETID 

Fetch ID and store 
text at TID 




© 



QfMR 
Position D at LASTWD 



S^QCW|Q 
of ioc m 1 t od 



at addr ess 
label 



QFMR 

Write requested 
labol in D 



TYPM 

Typo 'ILLEGAL LEVEL 
FOR LAREL' 




QFMR 

Writo 'SYSEND' at 
NEXTWO and cIom D 



Storo QCW D at 
QFW X1 and QCW X] 




™° r Any writo errors? ^ Y#$ 





TYPM 

Typo 'ILLEGAL 
LOGICAL FILE 
FOR DF LABEL' 
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MONARCH CONTROL SUPPLEMENTARY ACTION ROUTINES (cont.) 



(ENTRY ) 



ENTRY 1 VNiOF 



C 



Y 



Computer? 



c 



J> 



9300 



900 series 



taper top* unit number? 



> 



No 



PAOCH 



Sot up EOM for 
parameter (L) 



Write social EOF mark 
(171700003) on specified 
papor taps punch (used 
by FORTRAN compllod 
program output on popor 

J2ESL 



Sot flU description tablo 



mXSTP 

Write EOF on specified 
magnetic tap* 




(Logical file equal IO, \ 
ILX1, X2,orS? / 



No 



Yos 



Sot logical file numbor at 
filo aotcription tabU 



OFMR 
Rowind tho logical filo 




c 



(entry] 



SREWIND 



Logical filo roquoitod } 
for rowind? J 



No 



*Q 



Yoi 



Logical file assigned ~N 
mognottc topo? J 

TyoT 



Convert UAT entry"""" 

and store at 

file description table 



TYPM 
Type 'DF LOGICAL 
FILE NOT SPECIFIED 

FOR REWIND' 




Set EOM from (L) porometer 
at file description table 



c 



Pftysical unit a 
magnetic tape? 



"NNo 



Yes 



MAGTP 

Rewind the specified 
tape unit 
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MONARCH CONTROL SUPPLEMENTARY ACTION ROUTINES (conr.) 




Exit to 
LSRDMSO 




Y "^ Succowful 0«IH««iInfl?y£L 



TYPM 
Typo 'UNSUCaSSFUL 
SEARCH, 'POSITION' 
MSG NOT COMPUED| 
WITH' 




Convert EOM farm 
to UAT format 




c 



gK 



Physical unit spodflad? 



Jn 



C 



)*-0 



Yo» 



Magnetic too*? 



} 



No 



Sovo QSYSTP and Mt 
BI indicator at QSYSTP 
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MONARCH CONTROL SUPPLEMENTARY ACTION ROUTINES (cont.) 



RapiocaUATantry's 

not bits wlHi Bl Indicator 

and addroH of QOISK 



No 



c 



£ 



Logical unit a 
Dragnet I c taps? 



> 



Marga addran of QTAPE 
with UAT ontry's unit 
and chonnol 




$POSN5 




$POSN6 



Savo QSYSTP and 
s#t n#wly tormaa 
voluo at QSYSTP 



:gkr 



Soorch for ID 
itorod at TIO 



Rotter* QSYSTP 




return to 
tPOS 



/ "W 

Succouful toarch? I 



/^oT\ 
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MONARCH CONTROL SUPPLEMENTARY ACTION ROUTINES (cont.) 



e_ 



Sot count 



& 



fENTm 



HKFILE 



Sot count 
faojo nofottvo 



I 



rtNTm$lKREC 



(eNTR^SSKREC 



count ond nvt 



Sot EOM at Ala 
doicrl prion tabic 



C 



I 



SotEOMotfllo 
d »c H pt l ofttobU 



IKF2 



s 

u 

B 
K 


MAGTP 


Spoco number of 

ff%COfQI Of to 

EOFmork 


' 


1 



Load point? 



End of fllo? 



Spoeo nu 



numbor of 
focorai or 
To EOF marif 



0. 



® 



I 



MCF5 



F- 



Typ« 

"LOAD POINT" 



-4^/ Loojkpotnt? ^ 
^^' »no 

' f EndofnMl? J 



BKF6 



J Endofrool? J 1 



Typo 

"END OF KEEL" 



< 



BKF3 



~\yo« 



Roduco fllo count 



■c 



Roquirad numbor 
ftlotiklppod? 



D 



End of fllo? 



I 



( loctcflU oporation? \ 

1y— 



Spec* ovor 
EOF mark 



|yos 



3 



SKF7 



Typo 
•EOF ENCOUNTERED" 
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SCIENTIFIC DATA SYSTEMS 



IDENTIFICATION: 



PURPOSE: 



ACTION: 



SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



n . . ^ T 042008 (900 Series 
Catalog Nos. ^2023 mQQ) 



TRANSFER TO MONARCH CONTROL (TFMONRCH) 

a. To provide an external label definition ($QENDMN) of one plus 
the last memory location used by the complex of MONARCH Mon- 
itor subroutines, and such that the external definition will not be 
inadvertently deleted or rendered inaccurate by insertions, dele- 
tions, or changes of any of the subroutines comprising the MON- 
ARCH Monitor complex. 

b. Toprovidea transfer instruction to the initial entry point ($RDMSG) 
of the MONARCH Control Routine. 

When the MONARCH Loader loads the MONARCH Monitor complex, 
this routine is the last to be loaded and the transfer address in the End' 
Record of TFMONRCH causes the loader to transfer control to 
TFMONRCH. TFMONRCH, in turn, transfers control to the entry 
point of the MONARCH Control Routine ($RDMSG). This is the only 
subroutine in the MONARCH Monitor complex that can have an End 
Record with a transfer address. 



CALLING 
SEQUENCE: 



Normal MONARCH Loader action when an End Record with a transfer 
address is encountered. 



PROGRAMMING 
CONVENTIONS: 



MEMORY 
REQUIREMENTS: 

SUBROUTINES 
USED: 

COMMENTS: 



Relocatable subroutine. End Record has transfer address. No PRO- 
GRAMMED OPERATORS used and no registers are used. 



Two (2) memory locations. 



None. 



This subroutine must be (physically) the last subroutine on the system 
tape which is in the scope of the level 1 MONARCH ID Record whose 
ID is "MONITOR". It is the only "MONITOR" subroutine whose po- 
sition, in the scope of that level 1 MONARCH ID Record, is fixed. 
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SCIENTIFIC DATA SYSTEMS 



SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Page 1 of 



Catalog No, 



IDENTIFICATION: 900 Series RAD MONARCH GENERATOR (SYSGEN) 

CONFIGURATION: Any SDS 900 Series computer with: 

8K or more core memory 
magnetic tape unit on W buffer 
9367 RAD 
console typewriter or line printer 



PROGRAMMED 
OPERATORS: 

STORAGE: 

TIMING: 

USE: 



None 

Requires 767 locations, including constants and a 256-word input buffer 

N/A 

SYSGEN is a MONARCH system routine, and is called by a ASYSGEN 
message. SYSGEN uses resident I/O handlers and overlays MONARCH, 
beginning with LDIOSR, in a manner similar to the UPDATE routine. 

The generation of a RAD MONARCH system is accomplished in two steps: 

1. The Tape MONARCH system is converted to a RAD MONARCH system by 



2. 



an UPDATE operation (unnecessary when beginning from a tape — situ- 
ated RAD MONARCH system). 

The resultant NST (New System Tape) is input to a SYSGEN operation 
that copies the RAD MONARCH system onto the RAD. 



The SYSGEN operation is accomplished by first bootstrapping the RAD 
MONARCH tape, and issuing the following control messages: 

AASSIGN S = MTO, XI = DFuc, SO = X 
ASYSGEN n 

This sequence of messages results in the system being read from magnetic tape 
on channel A, and being written on RAD unit "u" on channel "c", beginning 
with sector 0. n is the number of RAD sectors to be allocated to RAD MON- 
ARCH and its files. A "directory" of level 1 (Al) files is maintained from 
sector n downward. 



^a 



USE: The original level records are output on SO (LP or TY) 

(cont.) 

Example: 

AASSIGN S = MTO, XI = DF1Y, SO = LP 
A SYSGEN 4095. 

The X2 and XI files are then begun following the S and D files. 

Level 1 identifiers are discarded from the output (XI) file during SYSGEN; 
level 2 records are abbreviated to the first four words. 

When the end of the Old System Tape (OST) is reached, the S and D files 
are closed, the OST is rewound, and control is returned to MONARCH. 

SYSGEN uses the resident RAD package in performing all RAD I/O operations. 

METHOD: The design and operation of SYSGEN is similar to that of UPDATE, except 

that no editing capability is provided. That is, the complete Old System 
Tape is copied onto the RAD without modification. 

SYSGEN consists of two separate programs: 

SYSGEN 1: a RAD bootstrap 

SYSGEN 2: performs the SYSGEN operation 

SYSGEN 2 performs the following steps: 

1. Initializes the RAD EOM/SKS table in the File Management Routine to 
correspond to the unit and channel assignment specified in QSYST 
(UAT(X1)). 

2. Initializes the UAT entries utilized during SYSGEN. 

3. Initializes the file pointers maintained within the File Management 
Routine. 

4. Writes SYSGEN 1 (the RAD Bootstrap) onto RAD sectors through 2, to 
permit subsequent bootstrap of the system from the RAD. 

5. Rewinds the Old System Tape and bypasses the tape bootstrap. 

6. Copies the OST records to the RAD, beginning with sector 3. During the 
process, Al records are discarded, but their labels are entered into a 
Directory file that is maintained at the end of the RAD, as allocated by 
the SYSGEN message. Each such entry is three words in iengrh, and in- 
cludes the RAD (word) address at which the so-labeled file begins. 

A2 records are abbreviated to the first four words. Blocking sentinels are re- 
moved. 
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When the end of the OST is reached, the S and D files are closed, the OST 
is rewound, and control is returned to the MONARCH. 

SYSGEN uses the resident File Management Routine in performing all RAD 
I/O operations. 
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900 SERIES RAD MONARCH GENERATOR (SYSGEN) 



SYSGEN 




Initial In RAO I/O table 
Initialize UAT entries for 
S, XI, SO 
Initialize RAD file 
pointers 



OST - Old System Tap* 

S - RAD System File 

D - RAD Directory FiU 

SO = List Output 



Output RAO bootstrap 
to RAD (Soctors 0-2) 



G> 



Rewind OST. 
BypoM bootstrap* 
Opon3 



Rood OST. 



c 



End of file? 



"> 



Yot 



No 



I 



Yoi 



Output to SO 

ZEZ 



Output labol and eurront 
XI address to D 



c 



Output 



. HALT 



C Al record? J-^2 m£ 



A2 record? 



I 



No 



( Hocking sentinel? J 



No 



blocking sontinal 



Lobol - 'SYSEND'? 



Yes 



>-o 



Closa S, D. 

Initial ize RAD fi to pointers. 

Rewind OST. 

Assign S to RAD 



<D 




Abbreviat* to first 4 words 



Copy rocora to S 



6 







43 



SCIENTIFIC DATA SYSTEMS 



SOS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog No. 



042 10D 

(900 Series only) 



IDENTIFICATION: RAD MONARCH LOADER ($QSYLDR) 



PURPOSE: 



ACTION: 



CALLING 
SEQUENCE: 



To load standard system routines from the MONARCH system and to load user 
programs from cards, magnetic tape, paper tape or RAD (see Section 3 of 
the MONARCH Reference Manual for a detailed description of the functional 
capabilities of this routine). 

Loads binary object programs from the medium specified until an End Record 
with a transfer address is encountered. At this point, if there are unsatisfied 
external label or PROGRAMMED OPERATOR references, the loader will 
search the MONARCH Library for subroutines which contain external defini- 
tions that satisfy one or more of the references. Library subroutines that sat- 
isfy these references are then loaded (see Section 3 of the MONARCH Ref- 
erence Manual for a detailed description of the operations performed by this 
routine). 



BRM QSYLDR 

with the initial load relocation bias in the A Register and the loader option 
switches in the B Register and: 

($QETBL) = address of last entry in loader's symbol table. 

($QSYSIN) = unit, channel, and I/O subroutine addresses for binary 
input medium. This information is in UAT format. r 

($QSYSTP) = unit, channel, and I/O subroutine addresses for the magnetic 
tape containing the library subroutines. This information is in 
UAT format. f 



PROGRAMMING 
CONVENTIONS: 



The loader is assembled as a relocatable subroutine with a transfer address in 
the End Record. The loader is written in a subset of the SYMBOL language, 
and contains no external references or definitions and no internal PRO- 
GRAMMED OPERATORS. However, in order to facilitate communication 
with the loader, it is assembled with its symbol table containing external 
label definition entries for those entry points and parameters which need to 
be accessible to other programs. 



Except when the RAD unit is specified. In this case, the channel field contains the logical file 
number. 
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PROGRAMMING 
CONVENTIONS: 
(cont.) 



MEMORY 
REQUIREMENTS: 



SUBROUTINES 
USED: 



The loader is assembled (using either SYMBOL or META- SYMBOL) together 
with the following subroutines: 

1. The search subroutine ($QSRCH). This subroutine is used by the loader 
and the MONARCH Monitor routines to locate files on magnetic tape or 
RAD. Specifically, it is used by the loader to locate the MONARCH 
Library on a MONARCH system. 

2. The Monitor Bootstrap ($QBOOT). This subroutine is used by the MON- 
ARCH Control Routine and the various MONARCH system routines to in- 
itiate reloading of the MONARCH system tape (see Section 2 of the 
MONARCH Reference Manual). 



3. 



4. 



5. 



The four input subroutines ($QCARD, $QTAPE, $QPAPER and $QDISK) 
used by the loader to read binary records. Bits 9 through 23 of QSYSIN 
must contain the address of one of these subroutines when control is re- 
linquished to the loader. Bits 9 through 23 of QSYSTP must contain the 
value of QTAPE when control is relinquished to the loader. These are 
the only input subroutines referenced by the loader. 

The dump routine ($QDUMP). This routine may be referred to by MON- 
ARCH routines or by a user to dump memory in octal with zero suppression, 

The RAD File Management Routine (see QFMR writeup on page 58). 



The loader's symbol table will initially contain external definition entries for 
the entry points of each of the subroutines described in } through 5 above. 
In addition, the symbol table will contain external definition entries for: 

1. All MONARCH Unit Assignment Table (UAT) and 900 Series Business 
Assignment Table (BAT) entries. (Refer to the MONARCH Reference 
Manual, Appendix A.) 

2. The Processor Error Switch (QPESW). 

3. The initial entry point to the loader (QSYLDR). 

4. The entry point to the RAD File Management Routine (QFMR). 



Approximately 3430o or 1816-iq memory locations (includes the subroutines 
described in Calling Sequence above). 



QSRCH, QCARD, QTAPE, QPAPER, QDISK, QFMR, RDISC/WDISC. 
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SYMBOL TABLE ITEMS AND INTERNAL 
FORMAT OF REFERENCE AND DEFINITION ITEMS 



Each item consists of 3 words: 



Symbol 
1-8 Chars. S ° 



f 


1 Char. 


• 

1 c 


1 c 


1 C 


(6) 


(6) 


(6) 


(6) 






• 








23 


1 C 


1 c 


1 C 


1 c 


(6) 


(6> 


(6) 


(6) 



G) 



23 



Value Word 
(900 Series) 



Sub- 
type 


Used for POP 
Items Only 


B 


% 


- I.I 1 1 

Symbol value or address of last reference 


(2) 


(5) 


(1) 


(1) 


(15) 



1 2 



6 7 8 9 



23 



Value Word 
(9300) 





. Q 


1 






l « 


i i i 


Sub- 
type 


00 


M 


00 


B 





Symbol 


value of address of last reference 


(2) 


(2) 


(1) 


(2) 


0) 


0) 


(15) 



12 3456789 



23 



tj-ie third word of each item is an instance of one of the following: 



Internal POP 

Definition 

(900 Series only) 



w 


, ( 


si) 


i.i. 


Sub- 
type 


POP Sequence No. 


% 


Actual, effective, origin of POP subroutine 





(6) 


1 


(15) 



1 2 



7 8 9 



23 



Common or 
Program Length 



© 


• i 


© 


i . i . 


Sub- 
type 


Not Used 


B 


C 


Length of program or common block (L) 





n n 






(15) 


u u 



External Label 
Reference 



1 


2 

• 


6 7 


8 

3 


9 t 23 
i . i . 


Sub- 
type 


Not Used 


% 


Address of data word containing last reference 


1 


0- 


. o 





(15) 



O l o 



9? 
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External Label 
Definition 



Labeled 
Common Mjj 
Reference* 



External POP 

Reference 

(900 Series only) 



External POP 

Reference 

(900 Series only) 



Sub- 
type 



1 






l L- 

Value of label 



1151 



1 2 



Sub- 
type 



1 1 



7 8 9 



23 



% 



Address of data word containing last reference 



(15) 



1 2 



7 8 9 

© 



23 



Sub- 
type 


• i 

Actual 6-Bit 
Operation Code 


V, 


| L. 


Not used 


i 


1 


(6) 


1 


n n 


u u 



1 2 



7 8 9 



23 





. < 


H 


|_ 


• i • 


Sub- 
type 


Actual 6-Bit 

r\ j.:__ /"•__!_ 

wpeiuiiuri v.uue 


i r 


Actual, 


effective, origin of POP subroutine 


1 


(6) 


1 


(15) 



1 2 



7 8 9 23 

Notes: (l) For 900 Series Computers, L/P = if Label item, and 1 if POP item whose subtype 
is 01 or! 10] For 9300 Computers,- L/P = 0. 

(2) 9300 M subfield = 1 if multiple definition. 

(3) Items whose subtype is 00 are not entered in the table. 

[4 J B and C fields of subtype 00 items: B = 1 if L is iength of a program 

C= 1 if L is length of a labeled common block. 

(5) Treated as illegal input by the MONARCH Loader. 

For 900 Series Computers only, POP items whose subtype is 1 1 are not entered in the table. The 
origin of the POP subroutine is stored in the address field of the actual POP transfer table entry, 
at X + IOO3, when a POP definition is encountered. The actual 6-bit POP address (X) replaces 
the sequence number when the item is inserted in the symbol table. 

Zero is stored in the address field of the actual POP transfer table entry (X + IOO3) when a POP 
reference item is inserted in the symbol table. The actual operation code replaces the sequence 
number. 

The actual 6-bit POP operation code is also stored in the instruction-code field of the POP trans- 
fer tableentry, whose address is obtained by adding 1008 to the sequence number. 
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GLOSSARY OF ABBREVIATIONS AND SYMBOLS (MONARCH LOADER) 



(x) 
R 
L 
POP 



b replaces the contents of a 
Contents of memory location x 
Current binary record 
Current record from MONARCH Library 
Programmed OPerator 



LIB 

<°>x 

(Q) x-y 
NRS 

ETBL 

POPCTR 

DCTR 

PDCTR 

RCTR 

PRCTR 



Library mode switch 

Bit x of contents of memory location a 

Bits x through y of contents of memory location a 

Number of external references satisfied less 2 

"End" of Loader's Symbol Table 



Number of POP definitions - 1 



Number of multiple external label definitions 
Number of multiple external POP definitions 
Number of multiple external label references 
Number of multiple external POP references 



LOADM 
PRGTST 



Load mode switch 
Purge test switch 



LOC 

A 

B 

/-> 

X 
X2 



Location of load address for current data word or location 
of effective address from value word 

A Register 

B Register 

Current label or POP item from R 

Label or POP item from symbol table with same "name" as C 

X Register 



Applies to 900 Series Computers only 
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MONARCH LOADER 




SQSYSLDR 
LOADER 



LOADIN 



Initialize QSYSIN and QSYBTP to 
with system input medium 



IIAS — load relocation bias in A Register 
FLAG-*- loader options in B Register 



0— i 



© 



Initialize control switches 



READ 
Read next record (R) 



STRT, LOOP 





* 


s 

u 

B 
R 


LOAD 
Process verified record (R) 



No 



Is R an End Record with a transfer address? 



r*C 



ntisfled 



unsatisfied Label 



©_ i 



900 Series POP references? 

T^ 



JSJM 



( UBon? V^- 



— / Computer? J 



•STOP* 

Unsatisfied 

external 

JgfejreQggs^ 






Any multiple defined external 
Labels or 900 Series POPs? 



- 



900 Series 



•STOP* >? 

Multiple I 
efinitions ) 

3_ 



LDAPCT 



Set BRU opcodes (OI9) in any POP Table locations 
(0100. thru 0177.) for which POPs were defined 



EXITL2 



Q (flAQby-vTy 



Yes 



NOTE I 

itrol goes to program(s) 
|ust loaded at transfer ad- 
dress given In End Record 




s 


SEARCH 


u 




B 


Position system tape at library 


R 






' 


' 






Set LIB on 





BIAS-*- (SEQNR), where (SEQNR)- 
(BIAS) for last program loaded + 
length of that program 



© 



TYPSYM 
Type loader's symbol table 
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©■ 



MONARCH LOADER (cont.) 




"© 



Ch La laval 1 MONARCH ID r*c«d? 

♦ 

c 



y*@- 



No 



b L a laval 2 MONARCH ID rocord? 



> 



No 



c 



I 



Any untatlcflcd Lob* I or 
900 Sarias POP rafarancat? 



>© 



I 



Yo» 



Savo paramatar valuat roquirad for 
"puraa" action: 

SDCTR—fDCTR). SETH— (ETBL) 
SPRflR— (pR<m SPOPCIU- (FOPCtR), 
5P0CTR— (PDCTR) for 900 Sarias only 



I 



NRS— -1 



Sat LOADM and PRGTST 






jDUHi 



QSYS1N 

Rood 1 rocord (R) from loadar 
Input modlum 



I 



Q b R a MONARCH ID rocord? 



c 



b word count In R $ 31 ? 



>^ 



tfADI 



It word count In R J 2? 

FT— 



>*• 



| CT,WDCT— word count -2 | 

Cb R a binary record? VH2J 

I Yai 

W ' ->" tEAD3 

Doos checksum stastftfin R agrao wtth\_N£ 
roc o mp u tod^c>o1sKSum J 



NOTE I 



End of 
MONARCH library 
was detected 



1 



LMTI2 



f LOADMon? ) ^ » ( tU 

/Dot L contain lab* I or 900 SoA Yes /Tt\ 
\ios POP Reft or 900 Series Dofs?y^\Jy 



I 



No 



( b PRGTST on? ) No * ( JT) 

r— ^ 

I «wi PRGTST 



■0 



I 



C NRS = -1 ? y 

_i 



No 



Purge loadar'i symbol tabic, ate. 



DCTIU- (SPCTR), ETtt— (SETbL), 
PRCTR— (5PRCTR), POPCTR— (SPOPCR) 
PDCTR— (SPDCTR) for 900 Series only 



I 



Reset LOADM 



Oft 1^ ^""^ 



I 



X •STOP* \ 2 

I Illagal Input I 
S. format } 




READ SUBROUTINE 



50 



MONARCH LOADER (cont.) 



ENTRY 1 LOAD 




(Does R have a transfer address A 



X-*- Record Typ« Code from R 



End Record 

END 



Yes 



A- - -(BIAS)* program length 



S 

1 



c 



I 



(FLAG) Q «1? 



/ *WAIT* X 
I End record with I 
I no transfer I 
\ address y 



SEQNR •— (BIAS) + program length 

I 



Changs "load address" in R to loader 
•xit 



t 



© © 

© 
© 

I Dato Record 



^AJA 



Initializa Data Record Parameter 



BIAS— (A) 



JifiAD 



Storo modifier words in fixed locations. 
Store D in a location if the correspond- 
ing modifier word is not present in R 



load address in R relocatable? 



B-(BIAS) 



L_L 



LuC""- ioad address 



Yes 



(^ (FLAG) a - vTy&(£) 



LOC—lood address + (BIAS) 




<5> 



IWD — ■ address of lit data word !r. R 



Q 



Does ((IWD)) require special I/O 
location? 



No 



C 



^ 



Does ((IWD)) require load relocation? 



LLDA 



%fa*z: 



Add (BIAS) to oddress field in 
((IWD)) &set bit 18 of ((LOC)-l) 
to 1 If the "biased" address est- 
37777 



No 



C 



Yes f Does ((IWD)) require common 
relocation? 



Add (CBIAS) to addreu 
of ((IWD)) 



9300 



J 



Add (BIAS) to oddress field of 
((IWD)) 



Computer? 



3 



900 Series 



LLDB 



(Poos ((IWD)) require POP r«locotlon?^-^ge»j|IWD^_g»-(0100»fIWD|3^) 3 _ a 



Jfe 



-1&I4 



(LOC)—((IWD)) store modified data 
word 



X 



@H< 



Have ail data words in R been \ Yet fh Ran E 
processed? J \ Record? 
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MONARCH LOADER (conr.) 



C 



© 



NOTE 



"MR LOAD" 
1 



Have all items in R been prorwud? 



C 



No 



US™ /^ . 

.d? y^M EXIT ] — • 



Does oddress in 2nd word < 
require load relocation? 



of item A m Add (BIAS) to address field 
J of 2nd (Value) word 



Jfe. 



Store effective address in LOC 



Extract Sub-Type code from bits 0-1 
of value word and store in ST 



X-»- record type code 



X=l) Label 



SUBTYP 



^6 



y— (ST) 



6 



MC-S) POPs (900 Series only) 
I POPTYP 



*— (ST) 



6 



a.© © © © © © © 

1 S ommon I , I I . I 

© © © © 



f Definition 



CBIAS— -(LOC) 



© 



LOAD SUBROUTINE, "POPs" AND EXTERNAL LABELS 



© 
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MONARCH LOADER (cont.) 



5 



DEF 



SUCH 

Scorch loader's symbol table 
for item (X) with tar 
C 



I 



A— (LOC) 



I 



9300 C Computer?) 
1 900 Series 
( b C a label Item? ^"^vD 



c 



I 



Yes 



0™ 



b X a Definition? \ 



No 



b C a Definition? 



I 



J 



DCTK— (DCTR)+1 



9300 



Sot bit 8 in valuo ^^f Computor? J 
word of X to 1 > ■ S 



900Sorlot 



_J IXRR 



TXR 



a Definition? 



> 



CHAIN 



I 



: jm 

*-(A) | 



C 



A — ((CHAIN)) 



TXRD 



RCTR— (RCTR)-l 
NRS— (NRS) + 1 



Computor? 



No 

)- 9300 /' t ' 



3 



900 Series 



Y— 



Roplaco valuo word 
of X with C 



" K ^10-23 ' 0? ) 



Sot bit 9 In valuo 
word of Xto 1 




r- 


© 




Sot valuo word of 

X ■ valuo word 
efC 


V.^ 


* 




((CHAIN))— ad- 
droH field of orig- 
inal value word 
of X 



©■ 



A ■•- address of last 
reference 



I 



TXPR.TXRD1 



© 



CHAIN— (A) 



9300 



M— ((CHAIN)) 

< Computer? 1 
I 900 Series 



((CHAIN)) —((CHAIN)L- 
((CHAIN)) 1Q _ 23 — symbol value 



((CHAINWflS-KCHAIN))^ 
^ CHAIN ^9-2 3— symbol value 

I 



I 



A— (M) 
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MONARCH LOADER (cont.) 



1 



900 Series only 
PMTCH 



f Xiia Definition? ^ 

i 



No 



PXDCD 



•C~ C it a Definition? 

" RS 



PDCTR--(PDCTR)+1 



Sot bit 10 of value word 
of Xro 1 



© 



Q 



PXD 

3 



| ^ 

t PXRCR 

i) © r 



I PXR 

^2-C C is a Definition? ^ 



E 



NRS-— (NRS)+1 



Replace vol wo word of X 
with vaiuo word from C 



©■ 



NOTE 



Nanus of C and X match 
and Record typot of C 
ond X octree 



1 



^/ bC.M? J 



RCTR— (RCTR)+1 



© 



PRCTR-^(PRCTR)-! 




SRCH 



© 



Initial izo tymbol tabU pointer at 
first ontry in loader's tymbol table 



c 



SRCH1 



b Name In C * Name in X? 



y^ 



Ye» 



C 



b Record type of C - Record 
type of X? 



y^ 



jgsm 



Advance lymbol. Table 
pointer to next entry. 




I 



1 



(Lasts; 
exami 



lymbol table entry 
ined? 



' Yes 



^ (ETBL)-3>(MLOC)? ) 




NSRT 



ETBL— (ETBL) - 3 

~T~ 



Store C in lymbol table (ETfti. 
thruETBL+2) 



V \ 

■I Computer? 1 




USQ 



900 Serlet 



b C a label item? 



> 



No 



■© 



MATCHED EXTERNAL "POP" PROCESSING, 
SYMBOL TAME SEARCH AND INSERT SUBROUTINE 



54 



MONARCH LOADER (cont.) 



G1)900 Sarin Only 







JSEiP 



Sat bits 3 thru 8 of valua word of now 
tymbol tabla antry « (POPCTR)^^ 



@- 



c 



UCotaf? 



> 



Yat 



No 



PUCTR— («CT»)+1 

' 



X2,A-*-(POPCTR) 

popcnt— (popct*)+i 



jcoro 



sueoRG 



((X2) + 0100 B ) 10 _ 23 ^(LOC) 10 . 23 



PXDCR, PXRCR 



X2 ♦• POP taquanca numbar from valua 
*©rdofC 



A— Actual POP coda from X 



((X2) + 0I«%) 3 ^— (A) 3 ^ 



® 
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MONARCH LOADER (cont.) 




SYSIN 



X^- address of Input subroutine 



I 




© 



QCARD 



sEno 

Sot unit and ehannol 
assignmonts 



Road 1 card In binary modo 




© 



QTAPE 



SETIO 

Sot unit and ehannol 
assignments 



Road 1 rocord from mognotlc tapo 




Q 







' QPAPER 


s 
u 
ft 

R 


SETIO 

Sot unit and ehannol 
assignmonts 


" 


Road 1 rocord from papor tapo 




© 



Determine file number 
(S =0, Bl = 3) 



Road I record from file 





SETIO 



Unit and channel assignments 



/Un 

I tame as those for previous in- 

V put operation? 

I No 



Jta. 



Replace unit address codes and 
channel designators in all EOM 
&SKS instructions used by loader 
input subroutines 




LOADER INPUT SUBROUTINES 
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MAGNETIC TAPE SEARCH SUBROUTINE 



A A register 
B B register 




ENTRY) $QS«CH 
SEARCH 



Store March key Address In ID 
and st search flog 



XXL 



gsjrejr 

Read first 4 words of rwcord 



C 



Wo» first word read a 'Al 1 ? 



> 



No 



Yos 



< 



Aro chars. 9-16 = "SYSEND AA "? 



J 



I 



No 



( Aro chars. 9-16 - ((ID)),((ID) + 1)? J-Ufi- 




*Uses the magnetic top* rood subroutino usod by rho MONARCH Loodor, whon QSYSTP auignod to 
mognetlc tape. Whon QSYSTP is assigned to rho RAD, SNXT reads from the RAD Directory (D file). 



\ 
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SCIENTIFIC DATA SYSTEMS 



SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Page 1 of 



Catalog No, 



IDENTIFICATION: 900 Series MONARCH Resident RAD FILE 

MANAGEMENT ROUTINE (QFMR) 

CONFIGURATION: Any SDS 900 Series Computer 

PURPOSE: 



PROGRAMMED 
OPERATORS: 

STORAGE: 

TIMING: 

USE: 

CALLING 
SEQUENCE: 



Manages the S, XI, X2, BO/BI (and D) files for the RAD MONARCH 
system. 



None 

Occupies the last 650 locations in memory 

N/A 

The subroutine is loaded as part of the RAD MONARCH System Loader. 

BRM *QSYS 

OP FDT 

Return; (A) = Address of next word on the RAD file. 

The parameter following the BRM consists of a six-bit operation code, 
OP, and a pointer to a file description table. 

OP is used to indicate the following file operations: 

00 : Rewind 

01 : Open 

02 : Close 

03 : Read 

04 : Write 

05 : Write with Verification (S and D only) 

06 : Position 

The file description table is used by both the user and by QFMR to 
communicate additional information about the file operation. 
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CALLING 

SEQUENCE: 

(cont.) 



loc 
FDT 

+1 
+2 

+3 






1 


2 


3 


4 


5 


6 


9 


10 


23 




ER 


EOF 


EOS 




FP 








Core Origin 


Block Size 


Logical File No. 



In the event of an error, the cause of error is identified by QFMR in FDT as 
follows: 

Error I. D. Cause 

ER = 1 Operation was attempted but was unsuccessful. 

FP = 1 A write operation was attempted into a file-protected area. 

EOS = 1 Not possible to satisfy requested write operation. No further 

disc storage available. 

EOF = 1 End-of-file encountered on a read operation (self-delimiting 

files only). 

The core origin is the beginning core location to/from which the user requests 
an I/O operation to be performed. 

The block size is set by the user to specify the number of words that are to be 
transferred. When the user is reading from a file whose records are self- 
delimiting, it should be so indicated by setting the block size negative (self- 
delimiting files contain a word count in bits 3-8 of the first word of every 
record). 

The logical file number is set by the user to specify the file by number. 

: S 

1 :X1 

2 : X2 

3 : BO/BI 

4 : D 



METHOD: 



QFMR is one of two routines which comprise the MONARCH RAD I/O 
package: 
OFMP 

•N^, ■ ITII\ 

RDISC/WDISC Disc Handler 



i i i G iViUiimu^i ll^l I I l\UU I I I IW 
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METHOD: RDISC/WDISC has the capability to read or write a specified number of disc 

(cont.) sectors. It contains the only coding that actually addresses the disc. RDISC/ 

WDISC is random access in operation, and assumes that the 9367 is connected 

to a chpnnel having interlace. 

The system processors, on the other hand, deal with sequential files, and 
never write 64-word records. In essence, QFMR is an interface between the 
system processors and RDISC/WDISC. It has the following responsibilities: 

Position retention it must keep track of the origin and current position 

for each file. 

Reposition it must be able to find elements within the S file 

and to rewind all files. 

Buffer I/O it must buffer I/O between the record-oriented 

processors and sector-oriented handler. 

The file management package behaves as though the RAD were word address- 
able. For each active file, it maintains the "current sector" in core until it 
has been fully utilized, at which time the buffer is emptied/refilled in prep- 
aration for the next sector. Since the sectors are in numerical sequence, the 
p-th word is located at word r in sector q, where 

p = q*64 + r, < q < 2047, < r < 63. 

X2 and BO are actually the same file, but are distinguishable from the stand- 
point of rewind. RAD files are similar to tape files, and are destructible 
when rewound. Therefore, the same control cards can be used for either 
Tape or RAD MONARCH. However, SKIPFILE, SKIPREC, BACKFILE and 
BACKREC are not provided for RAD files. 

Each write on XI and X2 is checked for infringement upon the other file 
(overflow of storage space). Both files are rewound between JOBs. 

Since RAD logical files only rarely would be expected to begin at a sector 
boundary, it is necessary to open the file prior to recording or writing. For 
example, if the XI file begins with the fourth word in sector 04053g, the file 
management routine must first transfer sector 04053o to the core buffer before 
reading or writing can commence. 

Similarly, all output files should be closed after the last write operation. 
The file management package automatically opens a file after a rewind op- 
eration. 

Organization of RAD Storage 

RAD: (] S ) BO X2 XI J D ) 
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METHOD: 
(cont.) 



: X7777 


UAT (11) 
BAT (11) 






BRU DUMP (1) 




BRU TYPSM (1) 




CAT (11) 






RAD BOOTSTRAP 


(19) 




FILE POINTERS 


(12) 




RAD PACKAGE 


(389) 




BUFFERS 


(192) 




META-SYMBOL 






RESIDENT 


(103) 




QBOOT (1) 




X 




X 




BRU QBOOT 







ERASABLE 


0) 



Unit Assignment Table 
Business Assignment Table 
Linkage to Memory Dump 
Linkage to Symbol Tbl.Dump 
RAD EOM/SKS Table 
Bootstrap MONARCH 
File Management Pointers 
RAD File Mgt.Package 
RAD I/O Buffers (3) 

Overlay Loader 
Linkage to Bootstrap 



SUMMARY OF 
OPERATIONS: 



RAD storage allocation is based on the concept of two concurrently active files. 
When the system is generated, these are S (the System File) and D (the Direc- 
tory). After the system is generated, S and D are closed, and the remaining 
storage is used for the XI and X2 files. Since X2 and BO (BI) are not simul- 
taneously active, they both share the same file; X2 is defined as beginning 
immediately after the BO file. 



Rewind 

Calling sequence: 



BRM 
00 



*QSYS 
FDT 



Rewind and open file whose number is specified in the fourth word of the file 
description table. Words two and three are ignored. 



Open 

Calling sequence: 



BRM 
01 



*QSYS 
FDT 



Open the file whose number is specified in the fourth word of the file descrip- 
tion table. Words two and three are ignored. "Open" corresponds to an 
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METHOD: unconditional read operation of the current sector into the specified file's I/O 

(cont.) buffer. No information is transferred to the user. 

Close 

Calling sequence: BRM *QSYS 

02 FDT 

Close the file whose number is specified in the fourth word of the file descrip- 
tion table. Words two and three are ignored. "Close" corresponds to an un- 
conditional write operation upon the current sector from the specified file's 
I/O buffer. Since a "write" call does not always result in an I/O operation, 
"close" is used to ensure that the file's output buffer is "dumped" onto the RAD. 

Read 

Calling sequence: BRM *QSYS 

03 FDT 

Read from the file whose number is specified in the fourth word of the file de- 
scription table. Word three specifies the number of words to be read, and word 
two specifies the area into which the information is to be transferred. The speci- 
fied file must be open; i.e., an "open" operation must precede the first "read" 
operation. 

Variable length records may be read under "count control" by specifying their 
length to be unknown ((word three) <0). The file management routine will then 
assume the record length to be specified in bits 3-8 of the first word in the record, 

Write 

Calling sequence: BRM *QSYS 

04 FDT 

Write onto the file whose number is specified in the fourth word of the file de- 
scription table. Word three specifies the number of words to be written, and 
word two specifies the area from which the information is to be transferred. 
The specified file must be open; i.e., an "open" operation must precede the 
first "write" operation. 

Before returning to the calling program, the file management routine clears the 
contents of the next word in the output buffer; however, the next write will 
"overwrite" the "clear". That is, it is as though every write were followed by 
a write end-of-file and a backspace. This feature is used by the processors and 
loader to identify the end of the XI, X2, and BO files, whose records could 
not otherwise contain zero in the first word. 
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METHOD: 
(cont.) 



Write- with- Verification 



Calling sequence: 



BRM 
05 



*QSYS 
FDT 



The write-with-verification operation is identical to the write operation, ex- 
cept that after each output to the RAD, the specified sector is input and com- 
pared, word by word, with the output buffer. The X2 buffer is used for the 
comparison buffer. This option is used during SYSGEN, when X2 is not active. 
The user is cautioned against using this option, since X2 or BO might be in- 
advertently destroyed by doing so. 



Position 

Calling sequence: 



LDA = RAD word address 
BRM *QSYS 

06 FDT 



SUBROUTINES: 



Position the file whose number is specified in the fourth word of the file de- 
scription table at the address specified; then open the file. Words two and 
three are ignored. 



This option is used by the system search routines to position the S file randomly, 
in accordance with addresses specified in the D file. 



RDISC/WDISC 
Calling Sequence: 



LDA = Interlace control word 

LDB = RAD Sector 

BRM RDISC/WDISC 
Return 



Upon return, A will be clear if the I/O operation was performed successfully. 
Otherwise, A will contain a 'one' in bit 1, and, if part or all of the specified 
disc area is file protected, A will contain a 'one' in bit 5. 

The RAD handler utilizes the 11 EOM/SKS instructions that are initialized 
during SYSGEN or bootstrap to correspond with the channel to which the RAD 
is assigned. The file is always assumed to be no. 1 (unit address = 026/066). 

The handler initiates the read/write operation and checks for a coupler or chan- 
nel error. If no error is detected, the handler returns with (A) = 0. Otherwise, 
the attempt is repeated twice. Upon the third failure, Ai is set to 'one 1 , and, 
if a file-protected test proves true, A5 is also set. 

The handler has the following additional characteristics: 
1. Uses interlace, but not interrupts. 
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SUBROUTINES: 2. Uses automatic band incrementation. 

^ *' 3. Does not check calling parameters. 



Therefore, after latency, the handler provides for I/O transmission at the 
maximum effective rate. The handler is ignorant of the physical size of the 
disc unit(s), and it is the responsibility of the calling program to ensure that 
the call is legitimate. 
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900 SERIES MONARCH RESIDENT RAD FILE MANAGEMENT ROUTINE (QFMR) 



ENTRY IQFMt 




FDT(2) - N 
FDT(3) - 1 
IniHoliM 



REWIND 



(QFWfl))- 
(QCW(I)) 




Of 



POSITION 



(A)~ 
QCW(I) 



READ 



PRIME SUB 
TO READ 



OPEN 



QCW(l) 
64 

a* 



SUB 



BUFFER N 
ITEMS IN 



SECTOR (Q) 
- BUFFER (I) 





WRITE 



PRIME SUB 
TO WRITE 



CLOSE 



QCWffl 
64 "* 

Q,R 



SUB 



BUFFER N 
ITEMS OUT 



BUFFER (I) - 
SECTOR (Q) 
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900 SERIES MONARCH RESIDENT RAD FILE MANAGEMENT ROUTINE (QFMR) (cont.) 



O 



ROOM - COUNT 




SUB 



J « s - *■ 



64-R - ROOM 



•f roomTn J 



N-COUNT - N 
ROOM-COUNT - ROOMJ 
R+ COUNT- R 



TRANSFER 'COUNT' 
ITEMS TO/FROM SUFFER 



N - NO WORDS TO BE 
TRANSFERRED 

I = LOGICAL RLE NO. 



N - COUNT 



READ/WRITE DISC 



SECTOR Q + f(I) -BUFFER 

OR 
BUFFER- SECTOR Q 



Q + f(I) - Q 
- R 



£ 



< 



ROOM:0 



> 



Q*64 + R - QCW 
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900 SERIES MONARCH RESIDENT RAD FILE MANAGEMENT ROUTINE (QFMR) (cont.) 



O 



ENTRY 1 RDBC/WDISC 




- A 
3 - TRIES 



c 



Channel active? 



c 



No 



53 



Coupler road/? 



>l 



Alort EOM/POT 



Load Interlock, 
Connect ALC/ 
EOM/POT,»UC 



L 



Coupler ready? 



c 






Yei 



Coupler error? J^" 



INo 



c 



Channel error? 




>— c 



TRIES- 1 — TRIES >0 



)— o 



1 - A. 



c 



File protected? 



7 s - 



No 



1 - A, 




-e*4 RETURN 
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SCIENTIFIC DATA SYSTEMS 



SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



042009 (900 Series) 
Catalog Nos. 642024 (9300) 



IDENTIFICATION: MONARCH BOOTSTRAP LOADER (BOOTSTRAP) 



PURPOSE: 



ACTION: 



CALLING 
SEQUENCE: 



PROGRAMMING 
CONVENTIONS: 



To load the MONARCH Loader from the system tape and transfer control to 
it. 

Determines the memory size of the computer in which it is being executed and 
then loads the MONARCH Loader Routine upper (higher addresses) memory by 
reading relocatable binary records from the MONARCH system tape and load- 
ing them into upper memory. 



Execute magnetic tape "FILL" procedure for magnetic tape unit (on the W 
buffer for 900 Series Computers, or on Channel A for 9300 Computers). A 
tape reel containing a MONARCH system tape must be positioned at load 
point on tape unit (on the W buffer for 900 Series Computers or Channel A 
for 9300 Computers). 



This program has been written so that it can be executed only if loaded rela- 
tive to memory location 2. However, since all address references are abso- 
lute, it can be loaded relative to any reasonable memory location prior to 
being recorded on the system tape as an absolute program. No PROGRAMMED 
OPERATORS are used. 



MEMORY 
REQUIREMENTS: 

SUBROUTINES 
USED: 



Approximately 3OO3 or 192-jq memory locations. 



N 



one 
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MONARCH BOOTSTRAP LOADER (BOOTSTRAP) 



ENTRY) $»OOT 




Read in rest of Bootstrap Loader 



I 



M 



Compute computer m emory size (MAX) 

I 



C o m p u te load relocation bias for loader 
bated on MAX 



LR 



Read 1 record (R) from Magnetic Tape 
on W buffer 



v»offlputo number ot data words from word 
count In R & extract load relocation word 



Add load relocation b|as to Load Address 
from R 



Accumulate checksum, add load relocation 
bias to address field of data words requir- 
ing load relocation & store data words 



c 



I 



b computed checksum ■ checksum I 



c 



.NOTEj Control It re- 
leased to MONARCH 
loader, which is "primed 1 
to load MONARCH 
Monitor 



^Vit 



No 



(Checksum \ 



b R an End Record ? 




EXIT 1 LEXIT 



> 



No 



69 



SCIENTIFIC DATA SYSTEMS 



IDENTIFICATION: 



PURPOSE: 



ACTION: 



CALLING 
SEQUENCE: 



SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog Nos. 



042010 (900 Series) 
642025 (9300^ 



MONARCH LOADER ($QSYLDR) 

To load standard system routines from the MONARCH system tape and 
to load user programs from cards, magnetic tape, or paper tape. See 
Section 3 of the MONARCH Reference Manual for a detailed descrip- 
tion of the functional capabilities of this routine, 

Loads binary object programs from the medium specified until an End 
Record with a transfer address is encountered. If, at this point, there 
are unsatisfied external label or PROGRAMMED OPERATOR references, 
the loader will search the MONARCH Library for subroutines which 
contain external definitions which satisfy one or more of the references. 
Library subroutines which satisfy these references are then loaded. See 
Section 3 of the MONARCH Reference Manual for a detailed descrip- 
tion of the operations performed by this routine. 

BRM QSYLDR 

with the initial load relocation bias in the A Register and the loader 
option switches in the B Register and: 

($QETBL) = address of last entry in loader's symbol table. 

($QSYSIN) = unit, channel, and I/O subroutine addresses for binary 
input medium. This information is in UAT format. 

($QSYSTP) = unit, channel, and I/O subroutine addresses for the 

magnetic tape containing the library subroutines. This 
information is in UAT format. 



PROGRAMMING 
CONVENTIONS: 



The loader is assembled as a relocatable subroutine with a transfer ad- 
dress in the End Record. The loader is written in a subset of the 
SYMBOL language and contains no external references or definitions 
and no internal PROGRAMMED OPERATORS. However, in order to 
facilitate communication with the loader, it is assembled with its sym- 
bol table containing external label definition entries for those entry 
points and parameters which need to be accessible to other programs. 

The loader is assembled (using either SYMBOL or META-SYMBOL) to- 
gether with the following subroutines: 
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PROGRAMMING 
CONVENTIONS: 
(cont.) 



a. The magnetic tape search subroutine ($QSRCH). This subroutine 
is used by the loader, and by the MONARCH Monitor routines, 
to locate files on magnetic tape. Specifically, it is used by the 
loader to locate the MONARCH Library on a MONARCH system 
tape. 

b. The Monitor Bootstrap ($QBOOT). This subroutine is used by the 
MONARCH Control Routine and the various MONARCH system 
routines to initiate reloading of the MONARCH system tape (see 
Section 2 of the MONARCH Reference Manual). 

c. The three input subroutines ($QCARD, $QTAPE, and $QPAPER) 
used by the loader to read binary records. Bits 9 through 23 of 
QSYSIN must contain the address of one of these subroutines 
when control is relinquished to the loader. Bits 9 through 23 of 
QSYSTP must contain the value of QTAPE when control is relin- 
quished to the loader. These are the only input subroutines ref- 
erenced by the loader. 

d. The dump routine ($QDUMP). This routine may be referred to by 
MONARCH routines or by a user to dump memory in octal with 
zero suppression. 

The loader's symbol table will initially contain externa! definition 
entries for the entry points of each of the subroutines described in a 
through d above. In addition the symbol table will contain external 
definition entries for: 



a. All MONARCH Unit Assignment Table (UAT) and 900 Series Busi 
ness Assignment Table (BAT) entries. (Refer to the MONARCH 
Reference Manual, Appendix A. ) 

b. The Processor Error Switch (QPESW). 

c. The initial entry point to the loader itself (QSYLDR). 



MEMORY 
REQUIREMENTS: 



Approximately 2710o or 1480iq memory locations (includes the sub- 
routines described in Calling Sequence above). 



SUBROUTINES 
USED: 



QSRCH, QCARD, QTAPE, QPAPER 
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SYMBOL TABLE ITEMS AND INTERNAL 
FORMAT OF REFERENCE AND DEFINITION ITEMS 



Each item consists of 3 words: 



Symbol 
1-8 Chars. S 



( 


1 

1 Char. 


1 

1 C 


1 c 


1 C 


(6) 


(6) 


(6) 


(6) 






• 


■ 






23 


1 C 


1 c 


1 C 


1 c 


(6) 


(6) 


(6) 


(6) 



Value Word 
(900 Series) 






i i 





23 
iii. 


Sub- 
type 


Used for POP 
Items Only 


B 


% 


Symbol value or address of last reference 


(2) 


(5) 


(1) 


(1) 


(15) 


1 


2 6 


7 


8 


9 23 



Value Word 
(9300) 





, © 


1 






■ i i i 


Sub- 
type 


00 


M 


00 


B 





Symbol value of address of last reference 


(2) 


(2) 


(1) 


(2) 


(1) 


(1) 


(15) 



12 3456789 



23 



Sub- 
type 







POP Sequence No. 



M 



± 



the third word of each item is an instance of one of the following: 

.©, . ■ © 

Internal POP 

Definition 

(900 Series only) 



% 



1 



Actual, effective, origin of POP subroutine 



(15) 



1 2 



7 8 9 



23 



Common or 
Program Length 



© 


i 


© 


i • i . 


Sub- 
type 


Not Used 


B 


C 


Length of program or common block (L) 





n n 






(15) 


u U 



1 2 



External Label 
Reference 



Sub- 
type 



1 



JL 



6 7 8 9 

__© 



23 



Not Used 



% 



± 



± 



Address of data word containing last reference 



(15) 



7 R O 



23 
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External Label 
Definition 



Labeled 
Common M) J 
Reference* 



External POP 

Reference 

(900 Series only) 



External POP 

Reference 

(900 Series only) 



Q 



Sub- 
type 


■ 


■ 


% 


1 — 1 1 

Value of label 




1 


r\ * 





(15) 


U 


u 



1 2 



Sub- 
type 



1 1 



7 8 9 



23 



% 



Address of data word containing last reference 



(15) 



1 2 



7 8 9 



23 



Sub- 
type 



1 



Actual 6-Bit 
Operation Code 



(6) 



% 



1 



Not used 



1 2 



7 8 9 



23 





. < 


s'-l 


III! 


Sub- 
type 


Actual 6-Bit 
Operation Code 


/P 


Actual, effective,, origin of POP subroutine 


1 


(6) 


1 


(15) 



1 2 



7 8 9 23 

Notes: \Vj For 900 Series Computers, L/P = if Label item, and 1 if POP item whose subtype 

ai i r\ r noon ^_^_..j. i /n _ o 

IS ui or iu; tor 7&\j\j v_omputei:>, l/ r - u. 

(?) 9300 M subfield = 1 if multiple definition. 

(3J Items whose subtype is 00 are not entered in the table. 

f 4j B and C fields of subtype 00 items: B = 1 if L is length of a program 

C= 1 if L is length of a labeled common block. 

\5 J Treated as illegal input by the MONARCH Loader. 

For 900 Series Computers only, POP items whose subtype is 1 1 are not entered in the table. The 
origin of the POP subroutine is stored in the address field of the actual POP transfer table entry, 
at X + 100g, when a POP definition is encountered. The actual 6-bit POP address (X) replaces 
the sequence number when the item is inserted in the symbol table. 

Zero is stored in the address field of the actual POP transfer table entry (X + lOOg) when a POP 
reference item is inserted in the symbol table. The actual operation code replaces the sequence 
number. 

The actual 6-bit POP operation code is also stored in the instruction-code field of the POP trans- 
fer table entry whose address is obtained by adding 1008 to the sequence number. 
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GLOSSARY OF ABBREVIATIONS AND SYMBOLS (MONARCH LOADER) 



(x) 
R 
L 
POP 



b replaces the contents of a 
Contents of memory location x 
Current binary record 
Current record from MONARCH Library 
Programmed OPerator 



LIB 

«x 

<°>x-y 
NRS 

ETBL 

POPCTR 

DCTR 

PDCTR 

RCTR 

PRCTR 

LOADM 
PRGTST 



Library mode switch 

Bit x of contents of memory location a 

Bits x through y of contents of memory location a 

Number of external references satisfied less 2 

"End" of Loader's Symbol Table 



Number of POP definitions - 1 



Number of multiple external label definitions 
Number of multiple external POP definitions 
Number of multiple external label references 
Number of multiple external POP references 



Load mode switch 
Purge test switch 



LOC 

A 
B 
C 
X 
X2 



Location of load address for current data word or location 
of effective address from value word 

A Register 

B Register 

Current label or POP item from R 

Label or POP item from symbol table with same "name" as C 

X Register 



Applies to 900 Series Computers only 
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MONARCH LOADER 

entry! jqsysldR 
LOADER 




BIAS ■*— load relocation bias in A Register 
FLAG**- loader options in B Register 



©— I 



(sy 



Initialize control switches 



STRT, LOOP 



s 
u 

B 
R 


READ 
Read next record (R) 


1 


S 

u 

B 
R 


LOAD 
Process verified record (R) 



No/ 



r*C 



R an End Record with a transfer address? 







Any unsatisfied Label or 
900 Series POP references? 



I 



J 



Yes 



C LIB on? \ 

\ Yes 
/ *STOP* V 



No 



I Computer? J 

9300 I 



I Unsatisfied I 
I external I 

\ Roftrtngffi / 
, , M ISIRp 

No f Any multiple defined external A 

f V^ Labels or 900 Series POPs? J 



900 Series 



/ *STOP* X 

I Multiple 

L Definitions J 



LDAPCT 



Set BRU opcodes (01 g) in any POP Table locations 
(0100- thru 0177J for which POPs were defined 



EXITL2 



( (FLAGI), = 1? y 



Yes 



No 



((FLAG)^!?) -^ 



i Yes 



/ *WAIT* \ 

k Loading 
Completed J 

uisilj i ^£r^r 

Control goes toprogram(s) _ _ _ «. I EXIT \ 
Susf loaded at transfer ad-{ ' ' 

press given in End Record X- „• 



SEARCH 



Position systeifi tape at library 




Set LIB on 



BIAS— (SEQNR), where (SEGNR)= 
(BIAS) for last program loaded t 
length of that program" ^ „..■•»-*' 



© 



, ^ 



s 


TYPSYM 


u 




B 


Type loader 's symbol table 


R 
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MONARCH LOADER (cont.) 




C 



Any unsatisfied Label or 
900 Series POP references? 



>© 



Yes 



Save parameter values required for 
"purge" action: 

SDCTR— (DCTR),SETBL— (ETBL) 



SPRCTR— (PRCTR), SPOPCR— (POPCTR), 
SPDCTR— (PDCTR) for 900 Series only 



NRS— -1 

~T~ 



Set LOADM and PRGTST 



© 





© 




T RDBINI 


S 


QSYSIN 


u 

B 
R 


Read 1 record (R) from loader 
input medium 



Q Is R a MONARCH ID record? J "^\B2j 

—*♦ No NRP 

( Is word count in R <31? j i 



c 



Yes 



READ1 



Is word count in R > 2? 

T 



y^ 



Yes 



CT.WDCT— word count - 2 



C 



I 



Is R a binary record? 



> 



No 



Yes 



c 



.&IAD3 



Does checksum stored in R agree with\ No 
ecomputed checksum J 



f LMT I2 

( LOADM on? V-^°- 



/DoesL 
^iesPO 



I 



Yes 



contain label or 900 Ser- \ Ygs 
POP Refs or 900 Series Defs?. 



I 



No 



( Is PRGTST on? \-^ 
I Yes 



Reset PRGTST 



( NRS = -i ? y± 



i 



Yes 



Purge loader's symbol table, etc. 
DCTR— (SDCTR), ETBL— (SETBL), 



PRCTR-*- (SPRCTR), POPCTR— (SPOPCR) 
PDCTR— (SPDCTR) for 900 Series only 



Reset LOADM 



© 



*STOP* 

Illegal input 

format 



© 



*STOP* 

Checksum 



Yes 




READ SUBROUTINE 
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MONARCH LOADER (cont.) 
entry) load 



<■ 



€L 




X-*- Record Type Code from R 



Record 
END 



Doe* R have a transfer address? 



!> 



Yes 



5 



No 



A- -- (BIAS) + program length 



SEQNR -- (BIAS) + program length 



( (FLAQq^ITJ -^- 



*WAIT* 

End Record with 

no transfer 

address 



© 



Change "load address" in R to loader 
exit 



Data Record 



DATA 



Initialize Data Record Parameter 



BIAS— (A) 
I 



RLOAD 



Store modifier words in fixed locations. 
Store D in a location if the correspond- 
ing modifier word is not present in R 



B-^(BIAS) 



C 



L± 



load oddress in R relocatable? 



(FLAG) 22 = ^7j^S»tQ 



LOG"* - load address 



i Yes 



LOC— load address + (BIAS) 



Yes 




©" 



lWL>-«— address ot 1st data word in K 



c 



_LLDA 



Does ((IWD)) require special I/O 
relocation? 



Yes 



Add (BIAS) to address field in 
((IWD)) &set bit 18 of ((LOC)-l) 
to 1 if the "biased" address ex- 
ceeds 37777 



C 



No 



Does ((IWD)) require load reloca 



-Low 

tion?J- 



Yes 



5 





*./■ 




, No 


Add (BIAS) to address field of 






Dee* ((IWD)) require common A 
relocation? J 


((IWD)) 




< 


V 










no 




Add (CBIAS) to address 
of ((IWD)) 




9300 •* 




i 










~- 







Computer? 



900 Series 



LLDB 



f Does ((IWD)) require POP relocation ?\-^2W (IWDL_g^(0100+((IWD)) 3 _ 8 ) 



1SJA 



(LOC)— ((IWD)) store modified data 
word 



jNo / Have aii dara words in R bee 

processed ? 



n \ Yes. / Is R an End\ No ML 

J *~ ^Record? J *"[LC 

It 



iLOC-»-Max 
LOC,MLOC) 
I 




EXIT 
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MONARCH LOADER (cont.) 



f Have all i 



© 



NOTE 



"BRR LOAD" 



terns in R been processed? 



NEXT1 •" — -v 

>dTy£U( exit)-- 



No 






(Does address in 2nd word of item ^ m Add (BIAS) 
require load relocation? J of 2nd (Va I 



to address field 
lue) word 



Store effective address in LOC 



Extract Sub-Type code from bits 0-1 
of value word and store in ST 



X-«- record type code 



X=l I Label 



SUBTYP 



^0 



y^(ST) 



1 



© 



X=2) POPs (900 Series only) 



POPTYP 



z— (ST) 



($L. © © © © © © 

1 Common 1 1 | | 

f Definiti on | | 

-P- 1 © © © © 



LOAD SUBROUTINE, "POPs" AND EXTERNAL LABELS 
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MONARCH LOADER (cont.) 



2 



DEF 



SRCH 

Search loader's symbol table 
for Item (X) with tame name 

C 



I 



A— (LOC) 



4 Computer? J 
1900 Series 
C Is C a Label item? /""^VV 



c 



3 



Yes 



Is X a Definition? 



No r 

^W. TVf%n 



I 



} 



No 



Yes 



Is C a Definition? 



09- 



T 



} 



Set bit 8 in value 
word of X to 1 



DCTR— (DCTR)+1 

930 f 

•^■f Computer? J 



900 Series 



i 



Set bit 9 in value 
word of X to 1 



© 



TXR 



No ( IsCa Definition? J Yes 



TXRR 



CHAIN— (A) 



I 



A -^ ((CHAIN)) 

3 



( ' "v 9300 /- 

Computer? j ml 



TXRD 



RCTR-— (RCTR)-l 
NRS— (NRS) + 1 



^c 



^9-23°") 



900 Series 



yes 



Replace value word 
of X with C 



<^o-23=°n 



A — - address of last 
reference 



Yes 



Set value word of 
X = value word 
ofC 



©— 3 



TXDR,TXRD1 



((CHAIN)) — ad- 
dress field of orig- 
inal value word 
of X 



© 



CHAIN — (A) 



M— ((CHAIN)) 



9300 



£ 



{ Computer? ) 



900 Series 



((CHAIN)). .— ((CHAIN)). . 
,,_ 0-9 0-*> 

((CHAIN)).. j~T*~ symbol value 



((CHAIN))q^— ((CHAIN)) _ 8 
((CHAIN)) 9 _ 23 _ symb0 , VQ|ue 



A— (M) 



I 



A „ (M) 



a 



< A »9.23 ■ ° ? y 




I 



(A, 10-23-° 



I Yes 



Y 



D 
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MONARCH LOADER (cont.) 

Ft J 900 Series only 
PMTCH 



I 



Q X it a Definition? J- 

1 



No 



Ye» 



PXDCD 



PXD 

■f Ciia Definition? J 
Ro 



PDCTR— (PDCTR) + 1 



Set bit 10 of value word 
of X to 1 



© 



No 



c 



PXR 



C it a Definition? 



J 



PXRCR 



G4J (G4 



NRS— (NRS)+1 



Replace value word of X 
with value word from C 



© 



NOTE 



Names of C and X match 
and Record types of C 
and X agree 



£ 



^ IsCaRef? J 



Yes 



RCTR— (RCTR)+1 



© 



(entry) 



PRCTR— -(PRCTR)-l 



SRCH 



© 



Initialize symbol table pointer at 
first entry in loader's symbol table 



3 



SRCH1 



f, ^Y Nc 

( Is Name in C = Name in X? J 



1 



Yes 



CIs Record type of C = Record A No 
type of X? J 



SRCH2 



Advance symbol. Table 
pointer to next entry. 



Yes 




CLast symbol table entry A^ 
examined? J 



No 



Yes 



c 



ll Yes 



NSRT 



(ETBD-3 >(MLOC)? 



ETBL— (ETBL) - 3 



3 



No 



Store C in symbol table (ETBL 
thru ETBL+2) 



*STOP* 

Symbol 

Taole 

Overflow 



9300 



c 



Computer? 



Uzr 



j 



900 Series 



Is C a label item? 



>- *-© 



MATCHED EXTERNAL "POP" PROCESSING, 
SYMBOL TABLE SEARCH AND INSERT SUBROUTINE 



80 



MONARCH LOADER (cont. ) 

G 1)900 Series Only 



0. 



NSRTP 



Set bits 3 thru 8 of value word of new 
symbol table entry = (POPCTR).-,, 



( Is C a Ref ? \ 

F5o— y 



Yes 



PRCTR— (PRCTR) + 1 

1 



IPOPD 



X2,A— (POPCTR) 
POPCTR — (POPCTR) + l 



SUBORG 



« X2 ) +010 °8>,0-23~< LOC) 10-23 



' PXDCR, PXRCR 



X2" - "POP sequence number from value 
word of C 



A -•- Actual POP code from X 



((X2)+0100 8 ) 3 _ 8 — (A) 3 _ 8 



© 
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MONARCH LOADER (cont.) 



( ENTRY J 

V" "/QSYSIN 



X*- address of input subroutine 




QCARD 



QTAPE 



QPAPER 



SUjo 

Set unit and channel 
assignments 



Read 1 card in binary mode 




SETIO 

Set unit and channel 
assignments 



Read 1 record from magnetic tape 




SET IO 

Unit and channel assignments 
same as those for previous in- 
put operation? 



SETIO 

Set unit and channel 
assignments 



Read 1 record from paper tape 



Ou. 



Replace unit address codes and 
channel designators in all EOM 
&SKS instructions used by loader 
input subroutines 






LOADER INPUT SUBROUTINES 
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MAGNETIC TAPE SEARCH SUBROUTINE 




ENTRY) $QSRCH 
SEARCH 



A A register 
B B register 






Store search key Address in ID 
and set search flag 








1 








SNXT 


i 


i 




S 

u 

B 

R 


QSYSTP* 
iRead first 4 words of record 




1 


* 


i No 


Was first word read a 'Al'? 

^ T ' 


1 

No 




Yet 


Are chars. 9-16 = "SYSEND^'? 






< 


1 




A— -L._~ O U -//rhU //IPl\x1\<5 


A,B — 














f 








A, B-^- search key 












1 
















Reset search flag 







*Uses the magnetic tape read subroutine used by the MONARCH Loader. 
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SCIENTIFIC DATA SYSTEMS 



SDS PROGRAM LIBRARY 
PROGRAM DESCRIPTION 



Catalog Nos. 



042010 (900 Series) 
642026 (9300) 



IDENTIFICATION: 
PURPOSE: 

ACTION: 



jCALLING 
SEQUENCE: 



PROGRAMMING 
CONVENTIONS: 



MONARCH UPDATE ROUTINE ($UPDATE) 

To create new MONARCH system tapes and to update existing system 
tapes. See Section 4 of the MONARCH Reference Manual for a de- 
tailed description of the functional capabilities of this routine. 

Performs insertion, deletion and replacement functions related to creat- 
ing and maintaining a MONARCH system tape. See Section 4 of the 
MONARCH Reference Manual for a description of the operations per- 
formed by this routine. 

BRM MONUPD 

with the following MONARCH Unit Assignment Table entries set as 
indicated: 

(QSYS) = unit and channel addresses of magnetic tape unit con- 
taining the old system tape in bits 0-8. Address of a 
magnetic-tape input/output subroutine in bits 9-23. 

(QSYST) = unit and channel addresses of magnetic tape unit on 

which the new system tape is to be written in bits 0-8. 
Address of a magnetic-tape input/output subroutine in 
bits 9-23. 

(QSYSU) = unit and channel address of a card reader or paper-tape 
reader in bits 0-8. Address of a card or paper-tape in- 
put subroutine in bits 9-23. 

(QMSG) = unit and channel addresses of control-message input de- 
vice in bits 0-8. Address of an input subroutine for the 
control-message device in bits 9-23. 

(QSMO) = unit and channel address of typewriter or line printer 
in bits 0-8. Address of a typewriter or line printer 
output subroutine in bits 9-23. 



Relocatable subroutine assembled with META-SYMBOL assembly pro- 
gram. No PROGRAMMED OPERATORS are used. With the exception 
of typewriter messages, communication with input/output subroutines 
is via the MONARCH Unit Assignment Table. The routine is written 
in such a way that it relies on subroutines in the MONARCH Monitor 
and hence it is loaded into memory above the MONARCH Monitor 
subroutines to which it refers. 
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MEMORY 
REQUIREMENTS: 



SUBROUTINES 
USED: 



Approximately 3400© or 1790^q memory locations, exclusive of 
input/output subroutines and input/output buffers. 



The following subroutines in the MONARCH Control Routine are used 
by UPDATE: 

QMSGRD, GETWRD, TYPOUT, MTYIO, CARD, MAGTP, MPRINT 



GLOSSARY OF ABBREVIATIONS (UPDATE ROUTINE) 

OST Old System Tape 

NST New System Tape 

UPD UPdate File 

O Current Record from Old System Tape 

R Current Record from Control Message Mediui 

U Current Record from UPdate File 
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UPDATE ROUTINE 



<$> 






f START J 



SMONUPO 
INJT 



INIT 



Rewind OST 



/•• 



(IttDMSG 



Read 1 record (R) from control 



medium 



fUR-'AREWl? j- 



c 



jjJCjtfSG 



b R a COPY 

T 



DECMSG 



Decode COPY manage 



(Jk 



I 



C COPY mes sage hen 2 argument*? J- 

x" 



No 



Reset level 1 Stop switch 



f Are level 1 namei equal? J 



Set up dummy 2nd 
argument 



Set level 1 Stop twitch 

I 



Reset level 2 Stop switch 



' "■ ( Are level 2 names equal? 1 



Set level 1 Stop switch 



Set level 2 Stop switch 



3 



CDoes level I name of 1st erg. = name In current OST level 1 A No 
ID record? J ~^ 



I 



Yes 



(Has this level 1 ID record already *\ 
been written on NST? / 

* No 
( Is name of 1st org. • "LOAD AAAA M ? \ 



Yes 



I 



No 



Write current OST level 1 ID record on NST 



I 



Q 



Type current OST level 1 ID record 



SRCHL1 

Search OST for next 
level 1 ID record 



© 



Name (chars. 9-16) of current OST 
level 1 ID record - "SYSENDaa 



T^ 



[>•-© 



TSTNL2 



SRCHL2 

Search OST for next 
level 2 ID record 



© 



CU there a level 2 name in 1st org. Ajj^ 
of COPY message? J^ 

(M) -* Y " 

a Ne/ ^ Does ievel 2 name of 1st org. = name ] 

~" \^ In current OST level 1 ID record? J 



T^T 



Write current OST level 2 H> reeard en 
NST; Type current OST level 2 ID rec. 



I Reset level 2 Stop switch 

-0 
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UPDATE ROUTINE (cont.) 



© 



HffiTll 



] 



Read 1 record (O) from OST 
f b O o blnory or encoded record? V*^ (c7) 

r bo 



a MONARCH ID record? 



^ 



Type 
"NONSTANDARD FORMAT" 



Yet 



f Blocking flag set? ) 



No 



No 



I 



Y« 



'aV 1 ^ 



of ID? A 



Yes 



Set blocking mode twitch 



Is O a level 1 ID? 



■NNo 



Yes 



Reset blocking mods twitch 



I Slocking under level 2 ID control? 



No 



Reset blocking mode switch 



(is BREA KPOINT 1 (9300 SENSE 1) Set? )— -**^^) 



Store O at current OST level 1 or 
level 2 ID record 



c 



I 



It O a level 1 MONARCH ID Record 



5 s -© 



-TnT 

( Is level 1 Stop twitch set? ~J *^ CaU 



C 



No 

b name in O = level 1 name of 2nd " \ Yet 
argument? 



Set level 1 
Stop twitch 



J No t 

top twitch tet? 1 ■» (C6l 



f b level 1 Stop twitch tet 

~Z3 



No 



( b level 2 Stop twitch tet? 

^ 



y-Q 



C 



b name in O = level 2 name 
argument? 



i 



of 2nd"\ 



.Wa. 



telTYMl 



Set level 2 
Stop twitch 

zzi — 



Type current OST ID record (O) 



Flag O indicating that it hat been 
written 



I 



BLOCKING SUBROUTINE 



Yet 



<G 



at O a level 1 MONARCH ID record? 



C 



Chart. 9-16 of O = "SYSENDa/C? 




> 







No 



NOTE | 

End of update run 



© 
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UPDATE ROUTINE (cont.) 



£ 



INSERT 1 



/It Ro level 1 ID with "LOAD^JN 
lln chart. 9-16? J 



I 



Ye* 



TypeR 



© 



INSERT 



Move R to UPD Record Area 
(R— U) 



(F> 



© 



© 



UPDIN 



RDUPD 

Read 1 Record (U) from 
UPD File 



. =1= 

I Is U a binary or encoded record? 



,Yef 



a MONARCH 



C uu 



ID Record? J "^A^/ 



Yet 



TYPM1D 



TypeU 



I 



Blocking Subroutine 



Write U on NST 



^oiU 



a level 1 MONARCH ID Record? 



Yet 



Q 



Chart. 9-16 of U » chart. 9-16 6f 07J 

RS — 






i 



Q Chart. 9-16 of U * "SYSEND A/ ;? ^ 



Flag O at hav ing been re- 
placed by a UPD record 
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UPDATE ROUTINE (cont.) 



/^"*NsRCHU 

(entry) 



Reset currant OST level 2 ID Record 



Saorch OST for mxt level 1 MONARCH 
ID Record 



/Was "i 

Vencounti 



"A1 A aaaaaSYSEND A a" 
.encountered? 



Yes 



f\\ level 1 nam* of lit 
V ^SYSEND AA "? 



argument 



© 




ENTRY) INIT 




Set currant OST level 1 ID to "AIaaaaaaLOADaaaa' 
Set currant OST level 1 ID to "AIaaaaaaaaaaaaaa" 



Position OST at inter-record gap preceding first racord 
of MONARCH I 



I 



Position NST at load point 



Writ* MONARCH Bootstrap Loodor on NST 





RDUPD 



Road 1 racord (U) from UPD file 



C 



End of File 



C 



>M5) 



No 



Is UPD Madia cards? 



C 



> 



No 



Yes 



b (U) a COPY massaga or a 
MONARCH ID Record? 



No 



Ye. 



Convert binary card image to SDS 
Internal coda 



(UTYPE) — 



1 (for laval 1 MONARCH ID Roc) 

2 (for level 2 MONARCH ID Roc) 

3 (for COPY massaga) 

(for binary or ancodad racord) 





SRCHL2 



Saorch OST for next laval 2 MONARCH 
ID Record 



G 



Was a laval 1 MONARCH ID Racord A Yas 
•ncountarad first? 
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UPDATE ROUTINE (conr.) 




DECMSG 



Initial COPY message parameters 



Clear Nam* Table 
N1ARG1 
N2ARG1 
N1ARG2 
N2ARG2 




W = currant message word 
E - currant syntax table entry 



Initialize Nam* Tabl* point (NP) at 
N1ARG1 



© 



<!> 



S*t SP to successor of E 




S*t Syntax TabU pointer (SP) at entry 
for "COPY" (i.*., E = "COPY") 



3 



Obtain nest word (W) from COPY 

~t 



a 



cod* for W- cod* for E? 



< 



I 



} 



Ha. 



Y*i 



b there an action associated with 



Store name In Name Table 
entry indicated by NP 



Advance NP to next 
Table location 



© 



J 

jint 

I 



~*\ f Does E have an alternate ^ No 

ID V jmter)? / ^ 



j Set X = entry point to action subroutine] 
I forE , 



Yes 



Set SP to 1st alternate 
of E 



I 





End 



Set number of COPY Message 
Arguments to 2 



( Error ^ 
I Bad COPY 
I Message J 



Set NP to point to location of 
N1ARG2 



© 



1 



"NxARGy" means: xfh name of yth argument 



DECODING OF COPY MESSAGES 
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UPDATE ROUTINE (cont.) 



C 




RDOST 



NOTE | 



Block flog initialize 
before first entry 



Block flag tot? 



No 



Rood 1 record from OST 



.Yes 



Sot pointor to next 
record in block aroa 



Qm 



word a block iwttinol? 



"> 



No 



Yes 



Sot rocord pointer to 
2nd word of block 




Move current rocord 
to rocord area 



c 



I 



Current block exhausted? j 
_____ 



No 



Reset block flag 



-•*/ EXIT J 



KNTRYj 



G 



(■v 
Blocking mode flog set? \ 



■o 



record MONARCH ID record? 



} 



Yes 



Unrecoverable error. Reload 
system to start again 



I 



No 



IBS 



Initialize block sentinel 



Binary or encoded record? J ( Is block aroa empty? 

o — 



E: 



( Is block area empty? j 
I No 



Set current record pointer 
to 2nd word of block 



c 



Yes 



Write one NST 
record (unblocked) 



^cayjtojjecordT^ 



No 



Write block on NST 



RECMVE 



Move record to block area 



Q 



Write block on NST 



Set block empty flag 



Add current record length 
to block size field of block 
sentinel (reset block empty 
flog) 



O 
<C7 



Set current record pointer 
to next available word in 
block 



6 



No 
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APPENDIX A 



CONTROL MESSAGE ACTION SUBROUTINES (See Section 2 of the MONARCH Reference 
Manual. ) 



PURPOSE: 



ACTION: 



CALLING 
SEQUENCE: 



PROGRAMMING 
CONVENTIONS: 



Each of these subroutines performs the processing functions associated 
with the particular control message. Each entry in the Control Message 
Function Code Table contains the address of the Action Subroutine 
which is to be executed following the analysis of the control message 
by the MONARCH Control Routine. 

Each of these subroutines performs the functions appropriate to the cor- 
responding control message. See Section 2 of the MONARCH Reference 
Manual for a description of the control messages and the functions per- 
formed by the Action Subroutine associated with each control message. 



BRU *IPF 

with: 
(IPF) 
(OMTE) 



(PRMCTR) 



= Origin of Action Subroutine. 

= Origin of Control Message Function Code Table entry 
for the current control message. 

= Number of parameters supplied in the current control 
message. Double precision literals are counted as 2 
parameters. 



(ORGPRM) = Origin of table of parameter values. Each parameter 
value occupies one word. Parameter values are stored 
in the same order as the corresponding parameters in the 
control message. 



Each Action Subroutine is a relocatable subroutine. If Action Subrou- 
tines are assembled separately, the End Record must not contain a trans- 
fer address - . Action Subroutines should terminate in one of the following 
ways: 



a. 



When an error is detected (e.g., an illegal parameter value). 
Type an appropriate error message by calling TYPM and then 
transfer (BRU) to MSGRST to allow the MONARCH Control Rou- 
tine to obtain the next control message from typewriter 1 (on the 
W buffer for 900 Series Computers, or on Channel A for 9300 
Computers). 
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PROGRAMMING 
CONVENTIONS: 
(cont.) 



When the Action Subroutine is one which does not require a sys- 
tem routine to be loaded. Transfer (BRU) to RDMSGR to allow the 
MONARCH Control Routine to obtain the next control message 
unit. 

When the Action Subroutine is one which loads a system routine 
and possibly one or more standard input/output subroutines). 
GSYSP (or a subroutine which performs the same functions as 
GSYSP) should be executed and control ultimately given to the 
MONARCH Loader (via the instruction: "BRM QSYLDR"). 



MEMORY 
REQUIREMENTS: 



Variable. (Approximately 604o or 388 ^q for FORTACT and approxi- 
mately 60s or 48 10 for ALGOLA). 



SUBROUTINES 
USED: 



Any or all of the following subroutines can be referenced by an Action 
Subroutine: 

TYPM 

Ku/vijvjin 

LDIOSR 

GSYSP 

SRLDSY 

QSYLDR 

QSRCH 

QBOOT 

QFMR 
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FORTRAN ACTION ROUTINE 



(entry jsfortca 



Initialize 
SetBMSWondBP2SW. 
Set(i)*-l. 
SetDt =-3. 



Sat FORTRAN I/O switch*; 
FSWL(llst output)— 77 8 
FSWI (input) -75b 
FSWQ (binary output — 

7 «B 



c 



Punch binary output? 



>T 



Yes 



Mwg* flag bit to K2, 
IORLEC FLAGS, and HAS 



Store at IORLEC 



1 
LDIoSR 



c 



Road in I/O handler* 



BO assigned to RAD? 



>r 



Ye. 



QFMR 
Open BO file 



Sot coil for 
FORTRAN compIlT 



STTCDTT 



Road In 
FORTRAN control 




(entry) 



SFORTKA 



ENTRY JSFORTLA 



FKPT— LINKNOatl05g 




Sot LINK NO at 10^ 
nogotlvo 



c 



ftOCONOT •fTOfl T 



LDXNFS 



LDXNFS 



No. 



No, 



Yes I No 



>-^c 



JOB mod*? 
"Re- 



ps 



Typo 
"ERROR SWITCH SET. . 




5 



Zoro twitchof 
FLPTA at 106s 



FLPTB at 107, 



FLPTCat llOg 



K 



D2 



Test typo paramotor 



J 



1st 



Sot FLPTA switch positive 




I D3 

X2 assigned to RAD? J m Y ** ^End of paramotor toblo? J 

Yos I Nn 




Linking? 



J 



„No 


T 

u 

B 


CONVM 

Convert UAT •nfry 
to porofiwtvr OT9G 



QFMR 
RowindBOdiscfilo. 
Insort LINKNO as 
labol In D file. 
Update XI disc fiio 
polntors. 




© 

( ENTRY J 



Sot call for 
FORTRAN loodor 



sTEESy" 

Rood in FORTRAN 
loodor control 



Exitto> 

(FORTRAt 

..Loader. 
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ALGOL ACTION ROUTINE 




Star* blank* at MSFNC+1, +2. 
Sat MSFNC = ond PAftMl = 0). 



c 



Compart PARMI*to paramatar 
cauntar PRMCTR 



Gat flrtt paramatar from (L) 




Comparison? 



> 



ym 



Marga corresponding bit 
into MSPAC 



Gat naxt paramatar from (L+ 1) 



<: 



Last paramatar? 
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APPENDIX B 
ADDING NEW FUNCTIONS TO THE MONARCH MONITOR 



Aside from modifying existing Action Subroutines to extend their capabilities, the only way to add 
to the functional capability of the MONARCH Monitor is by adding a new control message func- 
tion code and a corresponding Action Subroutine. 

Directions for adding a new function to the MONARCH Monitor are as follows: 

a. Insert a symbolic line containing a reference to the "FC" procedure into the coding for 
the "TABLES" subroutine and reassemble it. (See TABLES and GSYSYP). 

b. If symbolic parameters are to be used in the control message and the existing symbolic 
parameters do not provide appropriate mnemonic significance and/or parameter values, 
then the symbolic lines which define the necessary symbolic parameters must be inserted 
into the coding for the "TABLES" subroutine when it is reassembled, 

c. Write an Action Subroutine and assemble it using either SYMBOL or META-SYMBOL. 
See preceding sections of this manual for a description of the characteristics of Action 
Subroutines. 

d. If the new function requires that a system routine be loaded from the system tape and 
executed, then that system routine should be assembled using SYMBOL or META- 
SYMBOL. 

e. Make a new system tape using the MONARCH Update Routine (see Section 4, MONARCH 
Reference Manual). Input to the update run must include: 

new object program for TABLES subroutine, 
object program for the new Action Subroutine, 
object program(s) for new system routine (if any). 

f. Test the new system tape by issuing a variety of control messages to MONARCH. Tests 
should be designed to provide evidence that: (1) the new function works, and (2) add- 
ing the new function and updating the system tape have not introduced errors in other 
MONARCH routines. 

For example: 

To add a control message which will cause MONARCH to transfer control to the memory location 
specified by a parameter in the control message: 
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a. Insert the following lines in the TABLES subroutine: 



TEXT 


8, BRU 


J 


0,0 


K 


1, 1, L 


PZE 


BRUACT 



b. Add the following Action Subroutine: 



'$BRUACT 



NOP 






LDA 


L 




SKG 


=037777 




BRU 


*L 


NORMAL EXIT 


EAX 


BRUERR 




BRM 


TYPM 




BRU 


MSGRST 


ERROR EXIT 


TEXT 


<ILLEGAL ADDRESS IN 'BRU' 



BRUERR 

Update the current MONARCH system tape inserting a new binary object program for 
"TABLES" and the binary object program for the Action Subroutine. 

Test the new function by furnishing such sample control messages as: 

"ABRU 017766." (legal) 

"ABRU 298." (legal) 

"ABRU +9988999." (illegal) 
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